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EINFÜHRUNG 


Im Jahr 1950 Fertigte das National Physical Laboratory in Großbritan¬ 
nien den 'Pilot ACE' (Automatic Computing Engine), einen der ersten 
britischen Computer. Dieser erste ACE hatte eine Speicherkapazität von 
1,5 KByte und benötigte 32 Mikrosekunden, um die einfachste Operation 
zu bewältigen. 

Mit einer Unmenge von Kabeln und quecksilberbedampften Röhren 
brauchte er fast den Platz einer mittleren Küche. Heute kann er im 
wissenschaftlichen Museum von South Kensington besichtigt werden. 

Aufbauend auf dem Pilot ACE entwickelte English Electric den DEUCE 
(Digital Electronic Universal Computing Engine). Innerhalb von 6 Jah¬ 
ren wurden davon ca. 40 Stück verkauft, zu einem Stückpreis von 
£ 30-40.000 


Im Jahr 1982 hat Jupiter Cantab Ltd. seinen eigenen ACE entwickelt. 

Er kann schon in der Basisversion 3 KBytes Information speichern, 
kann um bis zu 48 KBytes erweitert werden und besitzt einen ROM-Pro- 
grammspeicher von 8 KBytes; der Z80A Mikroprozessor führt eine ein¬ 
fache Operation in ca. 1 Mikrosekunde aus, und er ist außerdem so 
handlich, daß Sie ihn in jeder Tasche unterbringen können. 

Und sein Preis? - Vergleichen Sie mit dem obigen Preis! 

Dies ist, neben viel Kreativität der Entwicklungsingenieure des Jupiter 
ACE, einer dreißigjährigen Entwicklung in der Elektronik zu verdanken, 
die über gedruckte Schaltungen und Transistoren zum Mikrochip führte, 
und es möglich macht, heute Computer für Jedermann zu produzieren, 
wie ihren Jupiter ACE, zu dessen Erwerb wir Sie beglückwünschen. 
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Zur Anschaffung Ihres neuen Jupiter ACE dürfen wir Sie beglückwünschen 
und die Hoffnung aussprechen, daß Sie viel Spaß mit Ihrem neuen Com¬ 
puter haben werden. 

Zusammen mit dem Jupiter ACE erhielten Sie folgendes Zubehör: 

1 . Dieses Handbuch 

2. Ein Netzgerät, das die 220 V Netzspannung auf 9 V transfnrm iert 

3. Ein Verbindungskabel zum Fernsehgerät (das längere der beiden Kabel 
mit je einem Stecker an beiden Enden) 

4. Ein Verbindungskabel zum Kassettenrecorder (ein Doppelkabel mit je 
einem grauen und schwarzen Stecker an beiden Enden) 

5. Eine Demonstrationskassette. 

Für den Betrieb Ihres ACE benötigen Sie nichts weiter als eine Steckdose 
(mit 220 V Anschluß), sowie ein Fernsehgerät. Später werden Sie noch 
einen Kassettenrecorder brauchen, der Anschlüsse für ein Mikrophon und 
einen Kopfhörer besitzt. Für den Anfang geht es aber auch ohne diesen. 

Zuerst schließen Sie bitte das Netzgerät an die Steckdose an. Der kleine 
Stecker am anderen Ende des Netzgerätes kommt in die Buchse POWER an 
der linken Seite des Computers (schauen Sie bitte auch auf die Unterseite 
des Computers, wo alle Anschlüsse markiert sind). 

Damit ist der Jupiter ACE angeschlossen und in Betrieb. Nur, ohne Fern¬ 
sehgerät sehen Sie natürlich nichts davon. An der Rückseite Ihres Fern¬ 
sehgerätes befindet sich der Anschluß für die Fernsehantenne. Dort hinein 
kommt das eine Ende des Verbindungskabels (s.Pkt.3). Das andere Ende 
kommt in den TV-Anschluß des Computers (die größere der drei Buchsen 
auf der rechten Seite). 

Schalten Sie nun Ihr Fernsehgerät ein, drehen Sie den Ton ab und 
stellen auf UHF Kanal 36 ein. Besitzen Sie ein Gerat mit Stationstasten 
zur Senderwahl, suchen Sie sich eine aus, schalten auf UHF und drehen 
solange, bis Sie auf dem Bildschirm ein einheitlich graues Bild haben, 
mit einem kleinen weißen Viereck unten links damit ist Ihr ACE fertig 
angeschlossen, betriebsberei t und mit Ihrem Fernsehgerät in richtigem 
Kontakt. ( Der Anschluß des Kassettenrecorders wird in Kapitel 3 bespro¬ 
chen . ) 


UHF Antcnnen-AnscM uß 
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Ihr Jupiter ACE arbeitet mit der Programmiersprache FÖRTH. Diese 
Sprache wurde 1970 von Charles Moore entwickelt und von ihm 
zunächst zur Steuerung des großen Radioteleskops am Kitt Peak 
Observator j um verwendet. 

Wir haben FORTH für den Jupiter ACE gewählt 

- weil es eine sehr schnelle Programmiersprache ist 

- weil es sehr wenig Speicherplatz benötigt und Ihnen damit mehr Platz 
als andere Programmiersprachen für Ihre Programme zur Verfügung 
stet 1 1 

- wegen der besonderen Struktur der Sprache, die es wie kaum eine 
andere ermöglicht, auch kompI rziertere Programme schrittweise aus 
kleinen, einfachen Programmen aufzubauen. 

Falls Sie FORTH bereits beherrschen, werden Sie dieses Handbuch 
hauptsächlich zum Nachschiagen benutzen. Kapitel 2 sagt Ihnen dann 
alles über die Eingabe, und Anhang D gibt einen schnellen Überbl ick 
über die Besonderheiten von FORTH auf dem Jupiter ACE. 

Es ist auch möglich, daß Sie am eigentlichen Programmieren nicht 
(oder noch nicht?) interessiert sind. Sie wollen also mit bereits 
fertigen, von uns gelieferten Programmen (der Software) arbeiten. Für 
diesen Fall genügt es, wenn Sie Kapitel 2 und 3 durcharbei ten. Wir 
hoffen aber, daß 5ie im Laufe der Zeit doch auf den Geschmack 
kommen und später selbst programmieren wollen. 

Wenn Sie FORTH noch nicht kennen, vielleicht noch nie mit einem Com¬ 
puter gearbeitet haben, es aber lernen möchten, dann ist dieses Hand¬ 
buch für Sie geschrieben. 

Wir setzen keinerlei einschlägige Kenntnisse voraus und werden Ihnen 
langsam, Schritt für Schritt, die Elemente der Programmiersprache 
FORTH vorstellen. Gleichzeitig versuchen wir dabei auch, Ihnen die 
generelle Arbeitsweise eines Computers zu verdeutlichen. 

Besonders ans Herz legen möchten wir Ihnen die Übungen am Ende 
jedes Kapitels, weil wir überzeugt sind, daß die erlernte Theorie nur 
in der Praxis erprobt und vertieft werden kann. Es sind dort auch 
Programme aufgeführt, die Ihnen hoffentlich Spaß machen. Außerdem 
wird auf interessante Dinge eingegangen, die über das jeweilige Kapitel 
hinausgehen. 

Und nun viel Spaß und guten Erfolg! 
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KAPITEL 2 

EINGABE ÜBER DIE TASTATUR 

Ihr Jupii^r' ACE sollte jetzt betriebsberer t vor Ihnen Stehen* Der Fernseh^ 
schirm zeigt ein gleichmäßiges graues Bild, unten links befindet sich 
ein kleines weißes Viereck, die MARKE. 

Drücken Sie jetzt wahllos auf einige Tasten. Ihr ACE hat Drucktasten, 
und mit ein wenig Übung spüren Sie genau, ob Sie die Taste korrekt ge¬ 
drückt haben oder nicht. Das Ergebnis sehen Sie auf dem Bildschirm, 

Vielleicht wird Ihnen das Durcheinander auf dem Bildschirm langsam 
zu groß? Sie können alies wieder löschen,, wenn Sie kurzzeitig den Stecker 
aus dem Gerät ziehen (in Kürze werden Sie elegantere Methoden kennen- 
I ernen). 

Wie Sie sehen können, erscheinen die Zeichen, die Sie eintippen, im 
unteren Teil des Bildschirms. Dieser Teil heißt EINGABEFELD. Aus diesem 
Eingabefeld holt sich der Computer seine Anweisungen ab. Wenn Sie mehr 
als eine Zeile voi I schreiben (was ganz einfach geht: lassen Sie einmmal 
eine Taste für ein paar Sekunden gedrückt, dann wiederholt sich das 
Zeichen fort während}, rückt die Zeile nach oben und macht Plat 2 für die 
nächste Eingabe. Das Eingabefeld ist also variabel, es kann sich bei 
Bedarf nach oben erweitern. 

Das Zeilenende brauchen Sie nicht zu beachten, ACE schreibt über die 
Zeilen hinweg. Das Zeilenende existiert nämlich nur auf Ihrem Bildschirm 
nicht aber im Innern von ACE. 

Bis jetzt erscheinen alle Buchstaben, die Sie eingeben, kleingeschrie- 
ben, Wollen Sie einen großen Buchstaben schreiben, drücken Sie {wie bei 
einer- Schreibmaschine) die Taste SHIFT und dazu einen Buchstaben, sagen 
wir das a, und auf dem Bildschirm erscheint ein A, 

Vorne rechts befindet sich (neben der Taste SPACE) die Taste SYMBOL 
SHIFT. Damit können Sie die Symbole, Rechenzeichen usw. schreiben, die 
über den Buchstaben und Zahlen auf den Tasten stehen, Drücken Sie zum 
Beispiel SYMBOL SHfFT und dazu das c, so erhalten Sie ein ?; SYMBOL. 
SHIFT und 1 ergibt das ’ usw. 

Achtung; 

Computer sind völlig fantasielos und äußerst pingelig bei der Verwendung 
von Zeichen. Von der Schreibmaschine her sind 5ie es vielleicht gewöhnt, 
für die Null einmal 0, einmal den kleinen oder großen Buchstaben o zu 
schreiben; oder für die Ziffer 1 einmal die 1, einmal das Große I oder 
das kleine I, Im Umgang mit Computern ist das leider nicht möglich. 

Zur besseren Unterscheidung vom Buchstaben o schreiben wir und auch 
Ihr ACE die Null mit Schrägstrich 0. Alle zehn Ziffern befinden sich auf 
der oberen Reihe des Tastatur. 

Vielleicht wundern Ste sich, daß der Computer auf das Durcheirraftder, 
das Sie eirigetippl haben, überhaupt nicht reagiert, Das Hegt daran,, 
daß Sie bisher wirklich nur Zeichen getippt haben, aber noch nichts 
eingegeben. EiNGEBEN geschieht durch die wohl wichtigste aller Tasten, 
sie heißt ENTER und befindet sich in der zweiten Reihe von unten rechts* 

Tippen Sie irgendetwas und drücken dann ENTER. Höchstwahrschein I ich 
steht jetzt am Anfang der Zeile ein B- Damit teilt Ihnen der Computer 
höflich mit, daß er Ihre Botschaft nicht verstanden hat, gibt Ihnen aber 
die Möglichkeit, sich zu korrigieren. B heißt also 11 bitte korrigiern Sie". 

Löschen Sie den Bildschirm, indem Sie kurz den Stecker herausziehen und 
drücken noch einmal ENTER, Die Antwort lautet Jetzt OK. Mit OK meldet 
der Computer 11 Befehl ausgeführt, bin zu neuen Taten bereit!" In unserem 
Fall hat der Computer alles brav ausgeführt, was wir ihm aufgetragen 
haben (nämlich nichts), und meldet sich nach getaner Arbeit bei J hnen 
mit OK wieder zurück. 
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Was versteht ein Computer? 

Nun, er versteht wie wir Wörter. Leider keine deutschen Wärter, nicht 
mal englische« Ihr ACE versteht die Wörter der Programmiersprache 
FORTH. Um sie vom übrigen Text besser unterscheiden zu können, werden 
in diesem Handbuch alle FORTH-Wörter im Halbfettdruck ausgedruckt. 

Hier das erste FORTH-Wort VLIST 

Es steht für Vokabel liste. Löschen Sie bitte den Bildschirm und geben 
Sie VLIST ein {d.h. VL IST gefolgt von ENTER). Es ist dabei völlig gleich¬ 
gültig, ob Sie VLIST mit großen oder kleinen Buchstaben schreiben. Nur 
in diesem Handbuch sind FORTH-Wörter immer groß und halbfett gedruckt. 

Auf Ihrem Bildschirm steht nun folgendes: 


VLIST 

FORTH UFLOAT INT FNEGATE Tf F* F 
4* F- 10A0 BVERIFY VERIFY BLOAD B 


SAVE 

SAVE 

LIST 

EDIT 

forget redef 

INE 

exit ” 

( [ 

4 LOOP 

LOOP DO UN 

TU. 

REPEAT 

BEG1N 

THEN 

ELSE WHILE 

IF 

1 LEAVE 

J 

r 1 

DEFINITIONS V 


OCABULARY IMMEDIATE RUNS> DOES> 
COMPILER CALL DEFINER ASCII LITE 
RAL CONSTANT VARIABLE ALLOT C. , 
CREATE : DECIMAL MIN MAX XOR AN 
D OR 2- 1- 2+ 1+ D+ - + ONEGATE 
NEGATE U/MOD *1 * MOD f */MOD /M 

OD U # D< U< < > = fl> 0< 0= ABS O 
UT IN INKEY BEEP PLOT AT F. EMIT 
CR SPACES SPACE HOLD CLS # #S U 
. . SIGN #> <# TYPE ROLL PICK OV 

ER ROT ?DUP R> >R ! <§> C! C<& SWAP 

DROP DUP SLOW FAST INVIS VIS CO 
NVERT NUMBER EXECUTE FIND VUST 
WORD RETYPE QUERY LINE ; PAD BAS 

E CURRENT CONTEXT HERE ABORT QUI 

TOK 


Das ist die vollständige Liste aller FORTH-Wörter, die ACE von Haus aus 
versteht, also sein eigenes Wörterbuch. Wie Sie sehen können, handelt 
es sich dabei im englische Ausdrücke, Abkürzungen, mathematische Zei¬ 
chen und Kombinationen verschiedener Symbole. 

Gegen Ende der Liste finden Sie das Wort VLIST wieder ( das VLIST 
am Anfang ist etwas anderes: zur Kontrolle schreibt der Computer alles, 
was Sie ihm eingegeben haben, noch einmal ganz oben auf den Bild¬ 
schirm, in diesem Falle also VLIST). 

Das OK am Ende der Liste ist kein FORTH-Wort. Es ist ein interner 
Ausdruck von ACE und signalisiert " Befehl ausgeführt!" 

Sie können auch mehrere Wörter gleichzeitig eingeben, z.B. 

VLIST VLIST 

Daraufhin schreibt der Computer zunächst eine Kopie Ihres ersten Befehls 
VLIST auf den Bildschirm, führt ihn aus, schreibt also die Liste aller 
Wörter, und verfährt dann mit dem zweiten VLIST genauso; abschließend 
meldet er sich mit OK zurück. 
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Unbedingt erforderlich ist der Zwischenraum (Taste SPACE) zwischen den 
Wörtern. Wir klugen Menschen finden uns noch einigermaßen zurecht, wenn 
Wörter plötzl ichzusammengeschrieben od erf alsch zert eilt werden. Ein 
Computer ist damit hoffnungslos überfordert. VLISTVLI5T ist für ihn ei 
einziges Wort, das er im Wörterbuch nicht findet, und VLi STVLIST sin 
zwei Wörter, die er ebenfalls nicht kennt, er antwortet deshalb mit Q 

Dagegen stört das Schrteiben über das Zeilenende hinaus ihn überhaupt 
nicht, denn wie schon gesagt, das Zei lende existiert nur auf dem Bild¬ 
schirm, für den Computer ist das gesamte Eingabefeld eine einzige Zelle. 

Zusammenfassung 

- was immer Sie schreiben, erscheint im Eingabefeld im unteren Teil des 
Bi I dschi rms 

- Buchstaben erscheinen normalerweise als kleine Buchstaben. Großbuch¬ 
staben erhalten Sie durch gleichzeitiges Orücken der Taste SHIFT 

- ebenso erhalten Sie Satzzeichen und andere Symbole durch Drücken der 
Taste SYMBOL SHIFT 

- der Compuer verfügt über ein eingebautes Wörterbuch mit 142 FORTH- 
Wörtern, die er sofort verarbeiten kann. Sie können diese Wörter in 
großen oder kleinen Buchstaben eingeben 

- werden mehrere Wörter auf einmal eingegeben, müssen diese durch Zwi¬ 
schenräume (Taste SPACE) getrennt werden 

- die Eingabe erfolgt durch die Taste ENTER. Daraufhin nimmt der Com¬ 
puter die Wörter (Befehle) einzeln aus dem Eingabefeld, schreibt sie 
zu Ihrer Kontrolle oben auf den Bildschirm und führt sie aus 

- VLIST ist ein Wort der Programmiersprache FORTH. Auf VLIST schreibt 
der Computer eine Liste aller FQRTH-Wörter aus seinem Wörterbuch 

- findet der Computer in seinem Eingabefeld einen Ausdruck, den er nicht 
versteht, druckt er 5 an den Anfang der Zeile, B bedeutet:” bitte kor¬ 
rigieren Sie !'*. 

Das Korrigieren von Tippfehlern 

Bisher können Sic, wenn Sie sich vertippt haben oder vielleicht vergessen 
haben, einen Zwischenraum (SPACE) zu lassen, nur alles auf einmal lö¬ 
schen, indem Sie den Netzstecker herausziehen. Das kann natürlich nicht 
die einzige Möglichkeit sein. In der Tat bietet Ihnen ACE sehr komfor¬ 
table Korrekturmög! ichkei ten. 

Wie Sie sicher langst gemerkt haben, zeigt das kleine weiße Viereck, 
die MARKE, immer genau die Stelle auf dem Bildschirm an, wo das näch¬ 
ste Zeichen erscheint. 

Nun gibt es verschiedene Möglichkeiten, diese MARKE zu bewegen. Dazu 
benützen Sie die Tasten der oberen Reihe, die zusätzlich mit «■ + * * 
gekennzeichnet sind. Drücken 5ie, wie bei Großbuchstaben, die 
Taste SHIFT und dazu die 5 oder die 8. Die Marke bewegt sich in Rich¬ 
tung des Pfeils. 

Haben Sie also irrtümlich VIST statt VLIST getippt, so können Sie das 
leicht korrigieren. Rücken Sie durch SHIFT 5 die Marke um drei nach 
Hnks, dann haben Sie V IST. Jetzt können Sie das fehlende L eintippen 
und mit SHIFT 8 die Marke wieder nach rechts rücken, um weiter zu 
schreiben. 


Q. 3 



11 


11 

Sehr praktisch ist auch die Taste DELETE (SHIFT 0). Sie löscht das 
Zeichen links von der MARKE. 

Beispiel: 

Sie haben VLOST getippt anstatt VLIST 
rücken Sie die MARKE um zwei nach links 
drücken Sie DELETE 
tippen Sie dass fehlende I 

Sie können jetzt ruhig schon ENTER drücken, der 
kümmert sich nicht darum, wo die Marke steht. 

Die Taste SHIFT 6 kann zweierlei bewirken. Angenommen, Sie haben schon 
mehr als eine Zeile geschrieben, dann springt die Marke durch + senk¬ 
recht um eine Zeile nach oben. Befindet sie sich schon in der obersten 
Zeile, so springt sie an den Anfang der Zeile. 

Ebenso funktioniert 4- (SHIFT 7). Die Marke springt eine Zeile tiefer 
oder an das Ende der Zeile. 


VL0|5T 
VL|ST 
VL l|ST 
Computer 


Fast alle Zifferntasten haben in Verbindung mit SHIFT eine zweite Funk¬ 
tion : 


DELETE LINE (SHIFT 1) löscht das gesamte Eingabefeld. 

CAPS LOCK (SHIFT 2) Feststeller für Großbuchstaben 

Die MARKE verändert sich zu C und die Buchstaben werden 
jetzt groß geschrieben. 

Wenn Sie aber betätigen wollen, brauchen Sie 

weiterhin SHIFT. 

Nochmaliges Drücken von CAPS LOCK stellt den alten Zu¬ 
stand wieder her. 

INVERSE VIDEO (SHIFT 4) alles was Sie schreiben, erscheint jetzt negativ 
d.h. schwarz auf weißem Grund. Das nochmalige Drücken 
von INVERSE VIDEO stellt den Normalzustand wieder her. 

GRAPHICS (SHIFT 9) verändert die MARKE zu G. Sie können jetzt gra¬ 

phische Zeichen schreiben. Mit den Tasten 1 bis 7 schrei¬ 
ben Sie jetzt die Figuren, die auf den Tasten zu sehen 
sind. Nochmaliges Drücken ergibt wieder den Normalzu¬ 
stand . 

CAPS LOCK, INVERSE VIDEO und GRAPHICS können alle unabhängig vonein¬ 
ander ei n-bezw.. ausgescha I tet werden. 

Drücken Sie zum Beispiel nacheinander: 


CAPS LOCKS 
INVERSE VIDEO - 
CAPS LOCKS 
GRAPHICS 
INVERSE VIDEO = 
GRAPHICS 


Großbuchstaben 

“negative" Großbuchstaben 

"negative" Kleinbuchstaben 

graphische Zeichen aber "negativ" 

die normalen graphischen Muster der Tasten 

Normalzustand 


1-7 


Übungen 

1. Üben Sie das Korrigieren in allen Variationen. 

2. Wir möchten Sie nun endlich davon erlösen, ständig den Netzstecker 
ziehen zu müssen: was immer Sie getippt haben, DELETE LINE löscht 
allles auf einmal, DELETE löscht den letzten Buchstaben Ihrer Eingabe# 
Was der Computer geschrieben hat (z.B.das Wörterbuch) können Sie 
durrh Finaabe des FORTH-Wortes CLS löschen! 
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Falls Sie bereits ACE-Programme auf Kassette besitzen (z.B .Spiele aus 
unserem Lieferprogramm), erfahren Sie in diesem Kapitel, wie man Pro¬ 
gramme von Magnetbandcassetten in den ACE lädt. 

Sollten Sie noch keine fertigen ACE-Programme haben, können Sie die¬ 
ses Kapitel vorerst übergehen. Es lassen sich natürlich nur solche Pro¬ 
gramme laden, die speziell für den ACE geschrieben wurden. 

Sie brauchen einen normalen Kassettenrecorder, am besten sogar' ein 
einfaches Gerät, da teure Hifi-Stereoanlagen oftmals die gespeicherten 
Signale in einer Weise beeinflussen, die der Computer nicht versteht. Der 
Kassettenrecorder muß eine Mikrofon-Eingangsbuchse und eine Kopfhörer- 
Ausgangsbuchse besitzen. Die Buchsen müssen zu den Kl inkenSteckern des 
mitgelieferten Doppelkabels (schwarz u.grau) passen. Sollte dies nicht 
der Fall sein, besorgen Sie sich im Radio/TV-Fachhandel einen entsprech¬ 
enden Adapter. 

Verbinden Sie jetzt den Computer und den Recorder mit dem Doppe I- 
kabel. Dabei gehört der Kopfhörerausgang zur Buchse EAR des Computers 
und der Mikrofon-Eingang zur Buchse MIC. Sie können den richtigen An¬ 
schluß durch die unterschiedlichen Kabelfarben kontrol I lerer?, 



Auf einem Band können mehrere Programme gespeichert sein. Sie sind in 
einer besonderen Form dort gespeichert, oder wie man in der Fachsprache 
sagt, codiert, di« sich für diese Art der Speicherung eignet. 

Jedes Programm hat einen Namen bis zu 10 Zeichen Länge, der eben¬ 
falls auf dem Band gespeichert ist. 

Wollen Sie jetzt ein Programm laden, gehen Sie wie folgt vor: 

Legen Sie die Cassette ein, spulen Sie an den Anfang zurück, oder wen¬ 
igstens soweit, daß Sie sicher sind, vor dem Programmanfang zu stehen. 
Hat der Recorder einen Klangregler, so stellen Sie Ihn auf Minimum bezw. 
Bässe ein, und stellen Sie die Lautstärke auf etwa dreiviertel des Höchst¬ 
wertes. Geben Sie jetzt in den ACE ein 

LOAD Name 

(Name des Programms, das Sie laden wollen), 

drücken Sie ENTER und schalten Sie den Recorder auf Wiedergabe ein. 

Bitte beachten: Der ACE behandelt normalerweise große und kleine Buch - 
staben gleich, Sie können z.B, ein Wort mit Großbuchstaben eingeben und 
mit Kleinbuchstaben wieder abrufen. Ein Programm kann vom Band jedoch 
nur genauso wieder geladen werden, wie es ursprünglich gespeichert war. 
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Da der Computer verschiedene Programme auf dem Band vorfinden kann, 
bevor er zu dem gewünschten kommt, schreibt er alle gefundenen Namen 
von Programmen auf den Bildschirm i 0 ] e Anzeige erfolgt in der Form: 

Dict.: (Name des Programms) 

Wenn Ihr Programm vollständig geladen ist, meldet der Bildschirm OK. 

Sie können jetzt das Bandgerät abschalten. 


Läßt sich ein Programm nicht laden, oder läuft das Band zu Ende, 
ohne daß das ACE reagiert, sollten Sie 

- nachprüfen, ob Computer und Kassettenrecorder richtig und einwand¬ 
frei miteinander verbunden sind 

nachprüfen, ob der Programm-Name richtig, auch nach Groß-und 
Kleinbuchstaben unterschieden, eingegeben ist 

- erneut laden mit verschiedenen Einstellungen des Lautstärkereglers 

- evtl, den Magnet köpf des Recorders reinigen. 


Wenn Sie nicht wissen, welche Programme sich auf einem Band befinden, 
spulen Sie es auf den Anfang zurück, geben ein 

LOAD 

drücken ENTER und starten das Band. Der Computer zeigt auf dem Bild¬ 
schirm die Namen aller gespeicherten Progamme an. 

Es können auch mehrere Programme hinterei nander in den Speicher des 
ACE geladen werden, vorausgesetzt, der Speicher ist groß genug. 

Manche Programmtei le müssen mit BLOAD geladen werden. Es handelt sich 
dabei um Informationen, die an eine ganz bestimmte Stelle im Speicher 
geladen werden müssen. 

Die übliche Darstel I ungsform für diesen Fall ist 
0 0 BLOAD Name 

Im Kapitel 14 erfahren Sie darüber mehr. 



KAPITEL 4 

DEFINITION NEUER WÖRTER 


Wenn Sie das Wort VLIST eingeben, erscheinen auf dem Bildschirm alle 
Wörter, die der Computer bereits kennt, also sein Wörterbuch, welches 
er von uns mitbekommen hat. 

Beim ersten Mal erscheinen also diejenigen FORTH-Wörter, die fest im 
ACE gespeichert sind. Damit aber ist der Wortschatz beileibe noch nicht 
erschöpft, denn 5ie können auch eigene Wörter definieren, d.h. neue Be¬ 
griffe bestimmen. Auf diesem Wege schreibt man ein Programm, d.h, man 
sagt dem Computer, was und wie er etwas tun soll. 

Ein Beispiel: 

Sie wollen dem Computer ein neues Wort HANS lernen, welches bedeuten 
soll, 'Führe VLIST zweimal aus'. Sie benutzen dabei zwei spezielle FORTH- 
Wörter, nämlich : (Doppelpunkt} und ; (Semikolon), wie folgt 

: HANS 

VLIST VLIST 
i 

: ist ein Wort, welches dem Computer mitteilt, daß Sie anschließend ein 
neues Wort definieren wollen. Danach kommt zuerst sein Name (HANS), 
und anschließend die Definition, die sagt, wie das Wort HANS auszuführen 
ist. 

Sie geben also ein : und ENTER.hoppla! - Entschuldigung, ich 

vergaß Ihnen zu sagen, daß nach ; unmittelbar das neue Wort kommen 
muß.Sonst erscheint auf dem Bildschirm ERROR 6 (Fehler 6). Schauen Sie 
doch bei dieser Gelegenheit in die Anlage B am Ende des Handbuches, 
dort finden Sie die verschiedenen Fehlermöglichkeiten und ihre Bedeutung. 

Wann immer Sie ERROR bei der Eingabe bekommen, müssen Sie diese 
grundsätzl ich bei : neu beginnend wiederholen. Also geben Sie erneut 

ein: 


: HANS 

(an Leertaste denken!) 

Wenn Sie jetzt ENTER drücken, sagt der Computer noch nicht OK. Oamit 
erinnert er Sie, daß Sie noch mitten in der Definition sind (er sagt aber 
weinigstens nicht mehr ERROR). 

Als nächstes kommt der wichtigste Teil der Definition, er sagt nämlich 
dem Computer, was er tun soll, wenn Sie das Wort HANS später verwen¬ 
den, nämlich er soll dann zweimal VLIST ausführen. 

Geben Sie also ein 

VLIST VLIST 

und drücken Sie die Taste ENTER,.,., aber wiederum bekommen Sie noch 
kein OK vom Computer. Auch schreibt er Gott sei Dank keine lange Liste 
von Wörtern, denn er weiß, er ist noch mitten in der Definition des Wor¬ 
tes HANS. 

Schließlich geben Sie ein 


was bedeutet, ' die Definition ist zu Ende' Wenn Sie jetzt nochmals die 
Taste ENTER drücken, antwortet der Computer (endlich!) mit OK. 

Jetzt kennt der Computer das neue Wort HANS. Das können Sie auf zwei 
Wegen überprüfen. 
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Zuerst geben Sie VLIST ein. Sie können sehen, daß das Wort HANS am 
Anfang des Wörterbuches auf dem Bi lds c |-, j rrr) erscheint. 

Zweitens geben Sie das Wort HANS ein und können sehen, wie der Com¬ 
puter das gesamte Wörterbuch zweimal hintereinander auf den Bildschirm 
schreibt, er führt also, getreu Ihrer Definition, VLIST zweimal aus. 

Haben Sie das Wort HANS versehentlich einmal zu oft eingegeben und 
wollen das Wörterbuch nicht schon wieder auf dem Bildschirm sehen, 
drücken Sie einfach die Taste BREAK (SPACE mit SHIFT). Sofort stoppt 
der Computer und zeigt ERROR 3 an (Sie brauchen keinen Fehler in die¬ 
sem Fall zu suchen). 

Wenn Sie also den Computer während einer Verarbeitung stoppen wollen, 
funktioniert BREAK fast immer. Im Gegensatz zum Ziehen des Netzsteckers 
löscht BREAK auch nicht die Wörter, die Sie vorher definiert haben. 

Unter bestimmten Bedingungen, z.B. wenn der Computer den Kassetten¬ 
recorder benutz», arbeitet auch die Taste SPACE (ohne Umschaltung mit 
SHIFT) wie BREAK. 

Das Wort HANS, welches wir in unserem Beispiel gebraucht haben, ist da¬ 
für natürlich ein nichtssagendes, ja unsinniges Wort, das niemand in 
der Praxis für diesen Zweck benutzen würde. 

Sie werden aber bald feststellen, daß die beiden FORTH-Wörter : und 
; benutzt werden können, um äußerst wirkungsvolle Wörter zu definieren. 
Deshalb sollten Sie sich diese Wörter gut einprägen. 

Wenn Sie also ein neues- Wort definieren wollen, benötigen Sie zuerst 

zweitens, und zwar auf der gleichen Zeile, jedoch mit einem Leerschritt 
dazwischen, den Namen des neuen Wortes, 

drittens die Definition des neuen Wortes (die sagt, wie das neue Wort 
unter Benutzung bereits vorhandener Wörter gebraucht wird), 
und viertens 


Man nennt dies eine Ooppel punk tdef in i tion, weil Sie : benutzt (es gibt 
auch noch andere Arten von Definitionen, zu denen wir später kommen). 

Wir haben Sie bisher das Wort HANS auf drei Zeilen definieren lassen, 
um zu zeigen, wie eine solche Definition arbeitet. In der Praxis können 
Sic die gesamte Definition in einer einzigen Zeile eingeben: 

: HANS VLIST VLIST - 

(auf Leertasten achten!) 

Natürlich würden Sie in der Praxis auch ein aussagefähigeres Wort an¬ 
stelle von HANS benutzen, zum Beispiel 2VLISTS. 

Nun zu einer Konstruktion, die Definitionen aussagefähiger, interessanter 
und auch lustiger macht. Sie kann nur innerhalb von Wortdefinitionen 
benutzt werden und versetzt das definierte Wort in die Lage, eine Nach¬ 
richt auszudrucken, wenn es aufgerufen wird. 

Oie Konstruktion besteht aus dem Wort 

ii 

(Punkt, Anführungsstriche), dann kommt ein SPACE, dann die Nachricht, 
die geschrieben werden soll, dann " (Ausführungsstriche). 

Diese Konstruktion wird oft in Verbindung mit dem Wort 
CR 

(carriage return=Wagenrücklauf) gebraucht, welches bewirkt, daß die 
nächste Nachricht auf einer neuen Zeile erscheint. 

Hier ein Beispiel: 

: BEN 

CR ,* ich mag Dich'' 
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Beachten Sie bitte: wenn Sie vergessen, das" {Ausführungszeichen) einzu¬ 
geben, erscheint auf dem Bildschirm 

E 

um Sie zu erinnern, daß Sie etwas vergessen haben. Denken Sie also da¬ 
ran, das B bedeutet 'möchten Sie etwas ändern oder ergänzen? 


Zusammenfassung 


FORTH-Wörter : ; CR 

BREAK 

ERROR ( FehI eranzei gen ) 


Übungen 


I. Geben Sie bitte ein 
Hallo!" 

Funktioniert nicht? - Wie schon gesagt, können Sie nur innerhalb 
einer Wortdefinition benutzen (bitte sehen Sie unter ERROR 4 im Anhang 
ß des Handbuchs nach). 

CR hat diese E i nschränkung nicht. Wenn Sie eingeben 
CR CR CR CR CR 

werden Sie feststellen, daß jedesmal eine neue Zeile an gesteuert 

w i rd. 


2. Definieren Sic einige Wörter wie 

: FUSSBALL 

CR ." HSV HAMBURG" 

CR wird deutscher Meister" 


und 


: LANDWIRTSCHAFT 

CR , M großer EG Butterberg" 


Ünerraschen Sie ihre Angehörigen und Freunde, indem Sie sie bitten, die 
Wörter FU5SBALL und LANDWIRTSCHAFT ein 2 ugeben. Und erfinden Sie 
selbst eigene FORTH-Wörter mit dazu passenden Texten. Vielleicht einen 
netten Spruch für jeden Ihrer Angehörigen und Freunde, den Sie unter 
deren Namen definieren. 
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EINFACHE ARITHMETIK 
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Computer sind dafür bekannt, daß sie sehr schnell rechnen können« 

Lassen 5ie uns dies auf dem Jupiter ACE versuchen. 

Geben Sie bitte ein: 

2 2 + . 
i + + 

(an Leertasten denken!} 

Wenn Sie jetzt ENTER drücken, wird der Computer auf dem Bildschirm 
schreiben 2 2 + . 4 OK' , was die Kombination Ihrer Eingabe mit der 

Antwort '4 OK' darstellt. Er hat also korrekt 2 und 2 zu 4 addiert. 

Beachten Sie bitte, daß Sie '2 2*-' anstatt '2+2' eingegeben haben, 
das heißt, 5ie sagen 'Nimm 2 und 2 und addiere sie zusammen' anstatt 
'Nimm 2 und addiere 2'. FORTH arbeitet stets auf diese Weise. 

Die Grundregel lautet also: 

Geben Sie zuerst die Zahlen ein, die Sie wünschen, dann erst geben 
Sie die gewünschte Rechenoperation an. Dies ist einem Rezept vergleichbar 
wo zuerst alle Ingredienzien aufgeführt werden, und dann erst die Anwei¬ 
sung folgt, was mit den einzelnen Bestandteilen zu erfolgen hat. 

+ und . (Punkt) sind FOR TH~Wörter, sie stehen im Wörterbuch, welches 
Sie durch Eingabe von VLIST auf den Bildschirm holen können. 

+ addiert zwei Zahlen 

. schreibt eine Zahl auf den Bildschirm. 

Die Zahl 2 steht nicht im Wörterbuch, aber natürlich wissen Sie und ich 
und der Computer, daß es eine Zahl ist. 

Der Computer speichert die Zahlen, die Sie eingeben, bis Sie ihm sagen 
was er mit ihnen tun soll. Um Zahlen zu speichern, benutzt Ihr ACE ein 
kluges Verfahren, welches wir den 'stack' (Stapel) nennen. Der Computer 
macht dies elektronisch, Sie können sich aber der Einfachheit halber 
einen Kartenstapel vorstellen, auf dem Zahlen stehen. 

Am Anfang ist der Kartenstapel leer: keine Karten, keine Zahlen. 

Gehen wir zu unserem Beispiel zurück. Wir hatten zuerst die Zahl 2 ein¬ 
gegeben. Der Computer nimmt eine leere Karte, schreibt die Zahl 2 darauf 
und legt diese Karte oben auf den stack. 


Für die zweite Zahl 2 holt er sich ebenfalls eine teere Karte, schreibt 
die Zahl 2 darauf und legt sie wieder oben auf den stack. 


+ besagt 'nimm die beiden obersten Karten vom stack 
darauf stehenden Zahlen. Schreibe die Antwort auf eine 
lege diese oben auf den stack. Wirf die beiden vorher- 
weg'. 



Das FORTH-Wort 
und addiere die 
neue Karte und 
gehenden Karten 
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Das FORTH-Wort . besagt: nimm die oberste Karte des stack, schreibe 
die daraufstehende Zahl auf den Bildschirm und wirf die Karte anschlies¬ 
send weg. 

+ nimmt immer die zwei obersten Karten des stack, unabhängig wieviele 
Karten noch darunter liegen. 

. benutzt die oberste Zahl des stack, alle anderen bleiben unberührt. 

Merke also: Die FORTH-Wörter + und . bearbeiten immer die Zahlen, 
die oben auf dem stack liegen, also die frischesten Informationen, die 
auch zuletzt auf den stack gegeben wurden. 

Dies gilt für alle FORTH-Wörter. Es Ist einsichtig, daß die zulet 2 t ge¬ 
kommenen Zahlen, also die neuesten, auch diejenigen sind, welche bear¬ 
beitet werden sollen. 

Bildlich gesprochen sind die zuletzt gekommenen Zahlen für den Compu¬ 
ter immer die frischesten (die alteren sind im stack quasi zugedeckt), 
und erst wenn die obersten Zahlen verarbeitet sind, erinnert sich der 
Computer auch wieder der darunter tiegenden. 

Nun wollen wir einmal drei Zahlen addieren, z.B. 10, 11 und 12. Zu¬ 
erst müssen Sie 10 und 11 addieren. Sie drucken das Ergebnis aber nicht 
aus, sondern lassen es auf dem stack stehen, um anschließend noch 12 
dazu 2 u addieren. 

Geben Sie bitte ein: 

10 11 + 12 + . 


10 


1 1 


12 




. zeigt '33' auf dem Bildschirm an 

Wenn Sie jetzt vom Addieren genug haben, beschäftigen Sie sich bitte mit 
den anderen Rechenarten. 
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- bedeutet Subtraktion. Das Minuszeichen - erzeugen Sie, indem Sie 
die Taste SYMBOL SHIFT gedrückt halten und dann 'S' eingeben. Bitte 
verwechseln Sie das Minuszeichen - nicht mit dem Unterstreichungszei¬ 
chen auf der Taste 0, das ähnlich aussieht. 

* ist das Zeichen für Multiplikation (SYMBOL SHIFT mit 8). Bitte ver¬ 
wechseln Sie es nicht mit dem Buchstaben x. 

/ ist das Zeichen für Division (SYMBOL SHIFT mit V). 

Die Zahlen, die damit verarbeitet werden können, sind ganze Zahlen. 
Sie können negatives Vorzeichen haben, jedoch können weder Brüche noch 
Dezimalzahlen verarbeitet werden. (Die Verarbeitung von Dezimalzahlen 
geschieht unter Verwendung anderer FORTH-Wörter, zum Beispiel F+ an¬ 
stelle von + , und F. anstelle von . Näheres darüber tm Kapitel 

15). 

Das gleiche gilt auch für das Ergebnis der Division, denn auch hier er¬ 
scheinen keine Brüche. 

Versuchen Sie zum Beispiel 11 durch 4 zu teilen: 

114/. 

Wenn Sie in Bruchzahlen rechnen würden, wäre das Ergebnis 2 3/4. Da 
aber nur mit ganzen Zahlen gearbeitet wird, ist die Antwort, die der 
Computer gibt '2'. 

Ein anderer Weg zur richtigen Antwort wäre '2 Rest 3, aber wir haben 
den Rest nicht abgefragt. Wenn Sie den Rest wissen wollen, dann bewirkt 
das FORTH-Wort MOD, daß der Rest auf dem stack gespeichert wird: 

11 4 MOD . 

schreibt den Rest '3' auf den Bildschirm, wenn 11 durch 4 geteilt wird. 
(MOD steht für modulo. 11 modulo 4 ist 3, aber trotz dieses hochtrabenden 
Begriffs handelt es sich eben nur um den Rest). 

Wenn Sie beide, den Quotienten und den Rest sichtbar machen wollen, 
brauchen Sie das Wort /MOD 

11 4 /MOD . . 

Die zeigt, wie wirksam es ist, einen stack zu haben, denn /MOD speichert 
zwei Antworten, den Quotienten und den Rest. 


11 4 


/MOD 


/MOD speichert den Quotienten an oberster Stelle des stack, somit wird 
dieser auch bei . zuerst ausgedruckt. Als nächstes kommt der Rest. 



schreibt 2 
schreibt 3 
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Hier nun eine Liste der meisten FORTH-Wörter, die man für arithmetische 
Operationen einsetzt. Sie ist nicht vollständig, zeigt aber die Variations¬ 
breite auf, die zur Verfügung steht, bevor man selbst eigene Wörter defi¬ 
nieren muß. 

Achtung: Diese Wörter arbeiten nur richtig, wen die damit verarbeiteten 
Zahlen nicht zu groß sind. Siehe Übung 2 dieses Kapitels. 

+ - * / MOD und /MOD haben Sie bereits kennengeJernt. 

NEGATE ändert das Vorzeichen der obersten Zahl des stack, d.h. es mul¬ 
tipliziert die Zahl mit -1. 

1 — » 2+ und 2- sind speziell definierte FORTH-Wörter, die das gleiche 
bewirken wie 1 + , 1 - usw. (d.h. mit Leerzeichen), sie verarbeiten aber 
schneller. Zum Beispiel addiert 1+ eine Eins zu der obersten Zahl des 
stack. 

V verarbeitet die drei obersten Zahlen des stack und speichert 
dort ab. Es nimmte die drei obersten Zahlen, mu11tipl iziert 
mit der dritten Zahl, und dividiert das Produkt anschließend 
oberste Zahl des stack. 

Zum Beispiel: 

652 -/. 

arbeitet wie 

6 5*2/. 

mit dem Ergebnis (6*5) 2- 15. 

-/MOD ist wie -/, aber mit einer /MOD Operation anstelle von /. 
nimmt drei Zahlen vom stack und speichert anschließend zwei 
den Rest und den Quotienten.. 

MAX und MIN nehmen zwei Zahlen vom stack und speichern die größere 
oder kleinere dort wieder ab. 

ABS nimmt eine Zahl vom stack und speichert dort ihren absoluten Wert 
wieder ab, d.h. die gleiche Zahl, aber ohne Vorzeichen, so daß die dann 
Null oder positiv ist. 

Probieren Sie diese FORTH-Wörter aus, um zu sehen, wie der Computer 
damit arbeitet. 


Es 

dort ab, 


eine neue 
die zweite 
durch die 


Zusammenfassung 
der stack (Stapel) 

FORTH-Wörter +, *, /, MOD, NEGATE, 1+, 1-, 2+, 2-, */, */MOD 

MAX, MIN, ABS. 


Übungen 


1. Jedes arithmetische Problem kann als Übung auf dem ACE gelöst werden 
z. B, 

Eine Quarzarmbanduhr kostet 89,5o DM. Wieviel davon ist als Mehr¬ 
wertsteuer an das Finanzamt abzuführen? (der Preis von 89,50 DM 
schließt die Mehrwertsteuer von 14 % ein). 


Lösung: wir arbeiten in Pfennigen, um Brüche und Dezimalzahlen 
zu vermeiden. Der Preis + Mehrwertsteuer ist 114 % des Preises ohne 
Mehrwertsteuer (der Preis selbst = 100 %, Mehrwertsteuer - 14%, so 

daß der Gesamtpreis 114 % ausmacht), d.h. um vom Preis ohne Mehr¬ 
wertsteuer zum Preis mit Mehrwertsteuer zu kommen, multipliziert man 
mit 114/100. Wir jedoch haben bereits den Preis einschließlich der 
Mehrwertsteuer, so daß wir den umgekehrten Weg gehen, d.h. wir 
multiplizieren mit 100/114. 



21 


21 


Also: Preis ohne Mwst. = 8950 * 100/114. Die Antwort, die wir brau¬ 
chen, nämlich die Mwst., ist davon 14%, also 8950 * 100/114 * 14/100 

= 8950 * 14/114. 

Geben Sie also ein: 

8950 14 114 */ . 

Oie Antwort, nämlich wieviel Mehrwertsteuer Sie auf die Armbanduhr be¬ 
zahlen, ist 1099 Pfennige oder 10,99 DM. 


2. Es gibt ein Limit in der Größe der Zahlen, die der Jupiter ACE nor¬ 
malerweise verarbeiten kann. Der Computer sagt ihnen aber nicht, wenn 
Sie dieses Limit erra'cht haben. 

Die größte Zahl ist 32767 und die kleinste -32768. 

Tatsächlich aber stellen die verfügbaren Zahlen einen geschlossenen Kreis 
dar, so daß, wenn Sie 

32767 1+ . 

eingeben, Sie -32768 erhalten. 


oooooooooooooooo o 


positive Zahlen 

3 • 

O 


.2 * 

* 32766 


1 ■ 

• 32767 


0 ' 

•-32768 

negative Zahlen 


•-32767 


-2 ♦ 

• -32766 


-3 • 

0 


O OO0OOOOOOOOOOOO0 


Zahlen außerhalb dieser Reihe werden nicht korrekt eingeiesen. 

Versuchen Sie 

32768 . 

Sie erhalten -32768. 

Diese Beschränkung betrifft die meisten Rechenprobleme mi *, weil häufig 
zwar die beiden miteinander zu multiplizierenden Zahlen selbst klein 
genug sind, das Resultat jedoch größer als erlaubt. Zum Beispiel: 

256 256 * . 

ergibt 0 (die richtige Antwort wäre 65536). 


3. Versuchen Sie diese drei Zahlen: 

256 256 * 256 / . 

und 

256 256 256 */ . 

Die erste Rechnung geht schief, wie wir es in der zweiten Übung erläu¬ 
tert haben. Sie könnten nun erwarten, daß die zweite Rechnung ebenfalls 
falsch wird: Sie erhalten jedoch die richtige Antwort, 

Um zu vermeiden, daß bei Multiplikation mit nachfolgender Division 
zu große Zahlen, die der Computer nicht mehr verarbeiten kann, entste¬ 
hen, wurde das FORTH-Wort */ gebildet, welches das verhindern kann. 
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4. Drücken Sie die . Taste solange, bis nichts mehr auf dem stack ist. 
Der Computer wird dann eine unsinnige Zahle ausdrucken und anschlies¬ 
send ERROR 2. Dies bedeutet 'stack underflow' oder 'es scheint we niger 
als keine Zahl auf dem stack zu sein'. 

'stack underflow' wird nicht immer sofort entdeckt, weil der Computer 
dies nur zu bestimmten Zeiten prüft. Zwischen diesen Prüfungen kann 
es durchaus passieren, daß der Computer in einen Bereich unterhalb des 
stack gerät, ohne es zu merken. 

Das macht aber garnichts (nämlich dem Computer), da er dort einige 
unsinnige Zahlen vorfindet, mit denen er spielen kann. 

Wenn 5ie 2 um Beispiel annehmen, Sie hätten einen leeren stack und 
geben ein 

1 + 

wird der Computer 1 zu einer dieser unsinnigen Zahlen addieren. 

Da der eigentliche Zweck des + Ist, eine Zahl vom stack zu nehmen, 
bildet sich der Computer ein, daß er die 1 vom stack genommen und so¬ 
mit einen völlig leeren stack hinterlassen hat. 

Ein exakt leerer stack ist jedoch nicht ' underflowed' , so daß kein 
ERROR 2 erscheint. Wenn 5ie jedoch erneut + eingeben (nachdem Sie 
bereits zwei unsinnige Zahlen zusammenaddiert haben), versucht der Com¬ 
puter eine Zahl vom bereits leeren stack zu nehmen, und dies bewirkt 
dann 'underflow' . 

Beachten Sie, daß ERROR stets den stack leert! 


5. Versuchen Sie 

iss/. 

Sie werden überrascht sein, daß die Antwort angeblich -1 sein soll. Dies 
ist natürlich falsch. Sie dürfen nämlich nicht durch 0 dividieren; tun 
Sie es trotzdem, erhalten Sie unsinnige Zahlen. 
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DEFINITION NEUER ARITHMETISCHER WÖRTER 
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Mit den Wörtern +, * usw. , die Sie b'isher schon kennenge lernt haben, 

verfügen Sie bereits über eine ganze Anzahl geeigneter Bausteine, mit 
denen Sie neue Wörter bilden können. Hier folgt zum Beispiel ein solches 
Wort, mit dem Sie Zahlen verdoppeln und anzeigen können: 

: DOPPEL 

2 * . 

5 

Die Zahl, die Sie nun verdoppeln wollen, muß natürlich schon im stack 
sein, bevor Sie DOPPEL verwenden. Geben Sie z.B.folgendes ein: 

23 DOPPEL 

dann passiert im stack folgendes: 


23 


DOPPEL führt aus: 

2 


23 

23 

23 




zeigt 46 an 


Wie jedes FORTH-Wort greift DOPPEL auf den stack zu und holt sich von 
dort Zahlen. Denken Sie immer daran: ein Wort nimmt Zahlen aus dem 
stack (das sind die Operanden, mit denen es arbeitet), und legt nach 
Ende der Bearbeitung andere dort wieder ab {das sind die Ergebnisse). 

Es ist aber nicht gesagt, daß die Zahl der Operanden gleich der Zahl 
der Ergebnisse sein muß. 

Zum Beispiel: 

+ hat zwei Operanden (die Zahlen die addiert werden sollen) und ein 
Ergebnis (die Summe). 

. hat einen Operanden (die Zahl, die angezeigt wird) und kein Ergebnis 
(denn die Zahl verschwindet nach der Anzeige aus dem stack). 

DOPPEL hat einen Operanden und kein Resultat. 

/MOD hat zwei Operanden (Dividend und Divisor) und zwei Ergebnisse 
(Quotient und Rest). 

Die Zahl 2 z.B. könnte man als FORTH-Wort ohne Operanden mit einem 
Ergebnis (nämlich 2) betrachten. 


Mit diesen Beispielen soll unsere Feststellung im Kapitel 5 nochmals 
untermauert werden: 

Sammeln Sie zuerst die Zahlen zusammen, mit denen Sie etwas Vorhaben, 
und dann rechnen Sie mit ihnen. 
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Die Zahlen, mit denen man etwas vorhat, sind die Operanden. Zusammen¬ 
getragen werden sie durch Ablegen im stack. 

Einige Wörter haben die Funktion, Zahlen innerhalb des stack zu mani¬ 
pulieren. Die drei einfachsten sind SWAP, DUP und DROP. 

SWAP vertauscht die beiden obersten Zahlen im stack 
von 


Q 


K 


(Richtige Spielkarten haben natürlich aufgedruckte Zahlen und nicht K 
oder Q, aber da die Zahlen beliebig sein können, stellen wir sie in Form 
von Buchstaben dar). 


DUP dupliziert die 

oberste 

Zahl im stack, sie wird 

aus 

K 

V 

wi rd 


K 

K 



DROP wirft die oberste Zahl des stack weg: 

wird 


K 



NICHTS 


Es wird jedoch nur eine Zahl entfernt. Sind zwei oder mehr Zahlen im 
stack, dann sieht das so aus: 


or 


K 


w r rd 


Q 


Nun folgt ein Wort SQ, welches das Quadrat einer Zahl berechnet (d.h. 
die Zahl wird mit sich selbst multipliziert). Da das Ergebnis nicht ange¬ 
zeigt wird, hat es einen Operanden (die ursprüngl iche Zahl) und ein 
Resultat (ihr Quadrat). 


K 

entsteht 

K*K 

K 


K*K 

K 


K*K 


T 

Operand 


T 

ResuI tat 


Nochmals zu Verdeutlichung: der Buchstabe K steht für eine beliebige 
Zahl, und 'K*K'soll bedeuten, daß K mit sich selbst multipliziert wurde. 

Das Wort SQ hat folgende Definition: 

: SQ 
DUP * 
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Sie können die Wirkung an verschiedenen Beispielen überprüfen, z.B. 

6 SQ . 

(steilen Sie in der Spielkartenform dar, wie sich der stack im Laufe der 
Operation SQ ändert). 

Anstatt weiterhin Bilder von Spielkarten zu rechnen, wollen wir ab jetzt 
eine vereinfachte symbolische Schreibweise für die Vorgänge im stack be¬ 
nutzen . 

Wir ersetzen das Diagramm 

wird zu 


durch die Zelle 

( K - K*K ) 

Operand Resultat 

Hat ein Wort mehr als einen Operanden oder mehrere Resultate, werden 
alle aufgeführt. Für das Wort /MOD z.B. bedeutet das 

{ K, Q - aut KiQ, Qiüi@tf@nt K: Q ) 

+ t f \ 

zweiter Op. oberster Resultat an Resultat an 

von oben Operand der 2.Stelle oberster Stelle 

Hl sh* ne>eh ©Ine Erläuterung air Scrtrreibweiis©! 

Werden Operanden oder Resultate aufgd'ist et , korrmt die Spitze des stack irrmer 
zuletzt. In Kartendarsteilung sieht das so aus: 

Die unterste wird zuerst ausgegeben 

Rest ~l 
Quotient 
Quotient 
K-Q 

Quotient 

Die oberste wird zuletzt ausgegeben 

ist sehr wichtig, genau zu wissen, welche Operanden jedes Wort im 
stack erwartet und welche Resultate es schließlich dort hinterläßt. 

Es empfiehlt sich deshalb, diese Information als Bestandteil in die 
Wortdefinition selbst mit einzubauen. Dies geschieht in Form von Kommen¬ 
taren . 

Alles was in runde Klammern ( ) eingeschlossen ist, ist ein Kommen¬ 

tar, dient nur zur Unterstützung des Programmierers und wird vom Com¬ 
puter bei der Ausführung völlig ignoriert. 

Hier folgt eine Definition des Wortes 5Q, die einen solchen Kommentar 
beinhal tet 

: SQ 

( K - 
DUP * 





K*K ) 


wird bei Ausführung nicht beachtet 
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Sie können Kommentare an beliebiger Stelle zwischen dem Namen eines 
neuen Wortes und dem Semikolon einfügen. Der Inhalt eines Kommentars 
muß sich nicht auf Erläuterungen zum stack beschränken. Sie können 
auch Notizen eintragen, die Sie später wieder daran erinnern, was Sie 
mit dem Wort bezwecken wollten. 

Auf die erste runde Klammer ( muß ein SPACE folgen, denn das Zei¬ 
chen ( ^ Ist ja selbst ein FORTH-Wort mit der Bedeutung 'es folgt ein 

Kommentar". Beachten 5ie bitte, daß Sie eine schließende Klammer ) 
innerhalb des Kommentars nicht verwenden dürfen, denn sie schließt den 
Kommentar selbst ab. 

So nützlich Kommentare sind, sie verbrauchen viel Speicherplatz; 

Sollten Sie also je den Hinweis ERROR 1 erhalten, der besagt, daß der 
Speicher voll ist, ist es empfehlenswert, als erstes die Kommentare aus 
Ihren Worten zu entfernen. 

Es ist zweckmäßig und üblich, Kommentare solange beizubehalten, bis 
ein Wort einwandfrei funktioniert. Wenn Sie später Wörter auf Cassette 
sichern, (Kapitel 14), werden Sie feststellen, daß es praktisch sein kann, 
zwei Versionen zu speichern.: eine mit Kommentar, als Referenz und Doku¬ 
mentation, und eine zweite ohne Kommentar für den Gebrauch in anderen 
Programmen. 

Wenn Sie die später folgenden Programmbeispiele aus diesem Buch ein¬ 
tippen, werden Sie wohl kaum die Kommentare mit eingeben, denn die ha¬ 
ben Sie ja schwarz auf weiß vor sich liegen. 

In Ihren eigenen neuen Programmen, die Sie später machen werden, 
aber werden Sie den Nutzen von Kommentaren schätzen lernen. 

Das Wort { verhält sich genau wie das Wort . Beide können Sie 

nur innerhalb einer übergeordneten Wortdefinition verwenden. 

Vergessen Sie die schließende Klammer ) , erhalten Sie ß. 

Haben Sie beide Versionen von SQ eingegeben, dann werden Sie mit VLI ST 
feststellen, daß SQ im Wörterbuch zweimal vorkommt. Das soll Sie vorerst 
noch nicht stören, der Computer verwendet immer die neueste Version,- 
also die, welche Sie zuletzt eingegeben haben. Im nächsten Kapitel lernen 
Sie, wie Sie die alte Version wieder loswerden können. 


Zusammenfassung 


FORTH-Wörter nehmen ihre Operanden oben aus dem stack und legen ihre 
Ergebnisse auch dort wieder ab. 


DUP { K -K,K ) 
DROP ( K - ) 

SWAP ( K,Q - Q, K ) 


(dup I icate-kopieren), 
Zahl im stack 

(drop-fallen lassen), 
weg, löscht sie. 

(swap-umtauschen), v 
obersten Zahlen 


dupliziert die oberste 
wirft die oberste Zahl 
tauscht die beiden 


( ( - ) beginnt einen Kommentar, der mit ) abge¬ 

schlossen werden muß. Auf den stack hat ein 
Kommentar keinen Einfluß. 

Es gibt noch wei tere Wörter, die den stack beeinflussen: 


OVER ( K,Q - K,Q,K ) kopiert die zweite Zahl auf dem stack nach 

oben an die Spitze. Der Inhalt des stack 
wird verschoben. 


ROT ( K, Q, J - Q,J,K ) vertauscht die oberen drei Zahlen zyklisch 

und bringt dadurch die dritte Zahl an die 
Sp i tze. 

PICK ( n - K ) nimmt eine Zahl (hier n genannt) von der 

Spitze des stack, macht eine Kopie der n-ten 
Zahl von oben und legt diese an der Spitze 
ab. 
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ROLL ( n - ) nimmt eine Zahl n von oben und vertauscht innerhalb der 
restlichen Zahlen die ersten n Zahlen zyklisch, wobei die n-te Zahl an 
die Spitze tritt. Beispiel; 



Üb ungen 

1. Definieren Sie ein Wort, das die Mehr wertsteuer aus einem Verkaufs¬ 
preis berechnet und als Ergebnis den Preis ohne Mehrwertsteuer hat. 

(Vergleichen Sie Übung 1 im vorherigen Kapitel. Prüfen 5ie anhand 
der dortigen Zahlen nach, ob Ihr neues Wort das richtige Ergebnis 
bringt. ) 

2. Überzeugen Sie sich davon, daß die folgenden Aussagen wahr sind: 

1 PICK ist dasselbe wie DUP 

2 PICK ist dasselbe wie OVER 

1 ROLL bewirkt nichts 

2 ROLL ist das gleiche wie SWAP 

3 ROLL ist das gleiche wie ROT 
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Versuchen Sie PICK und ROLL mit negativen Operanden auszuführen. 
....das mag der Jupiter ACE nicht. Sie erhalten ERROR 7. 

Andererseits sind PICK und ROLL relativ unempfindlich, wenn der 
stack leer ist. Mit PICK können Sie niemals ERROR erzeugen, der doch 
sonst sofort kommt, wenn der stack zu wenig Operanden für ein Wort 
enthält. ROLL spielt mit bis zu 5 unsinnigen Zahlen im stack, bevor* 
es aufgibt und ERROR meldet. Glücklicherweise aber richten die beiden 
keinen Schaden an. ROLL wühlt also nicht etwa aus Mangel an ZAHLEN 
im Wörterbuch herum. 

3. Sie kennen sicher den ' immerwährenden Kalender', mit dem Sie anhand 
einiger Tabellen zu einem Datum den jeweiligen Wochentag bestimmen 
können. Die folgenden Wörter bilden einen solchen Kalender für die 
Jahre 1901 bis 1999. 

DATUM nimmt vom stack den Tag ( 1 - 31 ), den Monat { 1 Januar, 

12 - Dezember }, und das Jahr (hier genügen die letzten zwei Stellen) 
und legt als Ergebnis den richtigen Wochentag in Form einer Zahl ab 
( 1 -- Montag, 7 - Sonntag). 

FORMAT i st ein Trick, um mit dem Monat Februar fertig zu werden. 
Das ist notwendig, weil der Februar mit seinen 28 oder 29 Tagen die 
Berechnung stören würde. Das Wort FORMAT tut so, als ob Neujahr 
am 1. März wäre, und Januar und Februar noch in das alte Jahr ge¬ 
hörten. Die richtige Jahreseinteilung wird gegen diese veränderte Ver¬ 
sion vertauscht und die Monats- Nuner iemng en tsprechend verändert: 

0 März, 11 Februar. 

JAHR stellt fest, welcher Wochentag der 1. März ist. Es geht von der 
Tatsache aus, daß der 1. März jeden Jahres um einen, und jedes 
Schaltjahr um 2 Wochentage verschoben wird. Es zählt die Gesamtver¬ 
schiebung für das laufende Jahr gegenüber dem 1. März des Jahres 
1900 aus (damals war der 1 .März ein Donnerstag). 

MONAT errechnet zunächst, wieviel Tage zwischen dem 1. Mörz und 
dem Ersten des eingegebenen Monats liegen: Für März sind das 0 Tagt-- 
(da ja der März hier der erste Monat des Jahres ist), für April 31 
Tage, für* Mai 61 Tage usw, Das Ganze geht wieder* mit einem Kniff: 

Würde man Brut he benu t z en (die wir ja noch nicht kennen), könnte 
man das Ergebnis durch Multiplikation der Monatszahl mit 30,6, Addi¬ 
tion von 0,5 und Abrunden auf die nächstkleinere Zahl erhalten; in 
unserer* Ganzzah i ar i thmet i k multiplizieren wir mit 306, addieren 5 und 
dividieren durch 10. 

Im nächsten Schritt wird das Ergebnis von JAHR h i nzuaddiert, so 
daß wir* die Zahl von Tagen erhalten, um die der Mona tserste gegen¬ 
über dem 1. März 1900 verschoben ist. 

TAG addiert schließlich noch die Tageszahl zum Ergebnis von MONAT 
und wandelt das Ganze dann in den Wochentag um. 

Und nun das Programm zum Eingeben: 

: FORMAT 

( Monat,Jahr - Monat,Jahr mit Anfangsmonat Marz) 

SWAP 9+12 /MOD 
1- ROT + 


: JAHR 

( Jahr - Zahl der Tage, um die der 1 .März gegenüber 1900 
verschoben ist) 


DUP 4 / + 
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: MONAT 

( Monat,Zahl der Tage - Zahl der Tage, um die der Monats 

erste gegen den I.März 1900 ver¬ 
schoben ist) 

SWAP 306 * 5 + 10 / + 


: TAG 

{ Tag,Ergebnis aus MONAT - Wochentag) 
+ 2+7 MOD 1 + 


: DATUM 

( Tag, Monat, Jahr - Wochentag) 

FORMAT JAHR MONAT TAG 


Jetzt können Sie Ihren Kalender einsetzen um z.b. festzustellen, an wel¬ 
chem Tag der erste Mensch auf dem Mond landete- Geben Sie ein 

21 7 69 DATUM . 

und Sie erhalten 1' auf dem Bildschirm angezeigt. Neil Armstrong betrat 
also an einem Montag als erster Mensch den Mond. Wenn Sie es nicht 
glauben, fragen Sie Armstrong selbst! 

Aber natürlich können 5ie auch viel näher liegende Daten ermitteln, 2 .B. 
wann dieses Jahr Ihre Angehörigen und Freunde Geburtstag haben. 

Achtung: Das Programm rechnet für wirklich existierende Tage richtig, 
mit falschen Eingaben können Sie es aber 'aufs Kreuz legen'. Wenn Sie 
also fragen, welcher Tag etwa der 29.Februar 1979 war, wird es brav 
antworten: 4. also Donnerstag, obwohl es diesen Tag überhaupt nicht 
gegeben hat, denn das Jahr 1979 war ja kein Schaltjahr. Um solche Pan¬ 
nen zu verhindern, müssen Sie wesentlich mehr Aufwand betreiben. 
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KAPITEL 7 

ÄNDERN VON WORT-DEFINITIONEN 

In der Programmierung gibt es zwei grundlegende Prinzipien: 

1 .Programme schreibt man so, daß sie gleich beim ersten Mal richtig an¬ 
bei ten, 

2.Sie funktionieren niemals beim ersten Mal. 

Alle neuen Computerprogramme fangen üblicherweise mit dem an, was Pro¬ 
grammierer gerne mit dem Wort ' bugs' umschreiben, mit Fehlern eben. 

Einige entstehen aus Unaufmerksamkeit oder aus Tippfehlern, was be¬ 
wirkt, daß das Programm gar nicht erst zum Laufen kommt. Andere hin¬ 
gegen sind sehr komplizierter Natur, die nur unter bestimmten Umständen 
zu fehlerhaften Ergebnissen führen können. 

Wenn ein Programm Fehler enthält, heißt das noch nicht, daß es 
schlecht ist und weggeworfen werden muß; wahrscheinlich ist sogar das 
Meiste in Ordnung, und nur wenige Fehler sind auszubessern. 

Nehmen wir ein Beispiel: 

: EXAKT 

2+2 - ,f 

2 1 ( ***BUG***) + . 


DEMO 

CR Hier' demonstriert ACE" 

CR wie genau er rechnen kann:" 

CR CR CR 

EXAKT 


(Können Sie den Fehler schon erkennen? Rufen Sie bitte nicht gleich bei 
uns a n!} 

Wenn Sie jetzt DEMO ausführen, werden Sie feststellen, das das Ergebnis 
falsch ist und Sie müssen den Fehler suchen. Dazu lassen Sie zunächst 
einmal EXAKT laufen: der Fehler steckt in dieser Definition, wie Sie sehen 
können. 

Schauen wir uns also die Definition von EXAKT noch einmal an, indem 
wir eingeben: 

LIST EXAKT 

LIST ist ein Wort, welches das folgende Wort nimmt und seine Definition 
aur dem Bildschirm anzeigt. Programmtechnisch nennt man dies LISTING. 
Dabei ist es gleichgültig, in welcher Form Sie Ihre Definition eingegeben 
haben, LIST stellt es immer in einer übersichtlichen Weise dar, die die 
logische Struktur annähernd erkennen läßt. Es stellt alle Wörter in Groß¬ 
buchstaben dar, auch wenn Sic sie in Kleinbuchstaben eingegeben haben. 

( Erinnern Sie sich an Kapitel 4: ACE kennt keinen Unterschied zwischen 
Groß-u.Kleinbuchstaben, solange es sich um Computer-Wörter handelt). 

Warum, könnten Sie sich fragen, muß man in diesem Fall eingeben LIST 
EXAKT und nicht EXAKT LIST ? Schließlich wurde doch in den vorangegan¬ 
genen Kapiteln immer wieder bis zum Überdruß betont, daß man erst den 
Operanden (hier: EXAKT) eingeben und dann sagen soll, was mit ihm pas¬ 
sieren soll (nämlich LIST). Nun, EXAKT LIST funktioniert einfach nicht: 

Der Computer findet zuerst EXAKT, führt es aus und zeigt an: " 2+2 
r: 3". Er findet danach LIST und weiß nicht mehr, was er LiSTen soll. 

Also: erst das Wort LIST sagt, daß das nachfolgende Wort nicht ausge¬ 
führt, sondern gelistet werden soll. 

Die allgemeine Regel ist also, daß Zahlen, oder Wörter die Zahlen re¬ 
präsentieren, vorangestellt werden. Wenn aber ein Wort selbst behandelt 
werden soll, folgt es nach. 



31 


31 


Beachten Sie bitte, daß Sie nur Wörter listen können, die Sie selbst defi¬ 
niert haben.Das hat nichts mit Geheimniskrämerei zu tun, daß Sie mit 
LIST nicht an die von uns bereits fest eingebauten FORTH-Worter heran¬ 
kommen, sondern diese benutzen Techniken, die LIST nicht beherrscht. 
Wenn Sie es trotzdem versuchen, antwortet der Computer mit ERROR 13. 

Kommen wir zurück auf die Fehlersuche in EXAKT. Nach intensivem Stu¬ 
dium werden Sie feststellen, daß Sie irrtümlich ' 1 (** ''‘BUG** *}' eingege¬ 

ben haben anstatt "2und deshalb muß EXAKT falsch arbeiten. 

Der nächste Schritt ist, EXAKT zu korrigieren. Sie brauchen dazu zwei 
neue Wörter: EDIT und REDEFINE. Geben Sie bitte ein: 

ED 1 T EXAKT 

und Sie erhalten ein LiSTING von EXAKT, wie vorher bei LIST. Diesmal 
aber im EI ngabebererch unten am Bildschirm und mit einem Q davor. 

Das B ist in Wirklichkeit die MARKE, nur äußerlich etwas verändert, 
und bedeutet wie üblich ' wollen Sie irgend etwas ändern?' . Weil das 
Listing im Eingabebereich steht, können Sie es behandeln, als hätten Sie 
es gerade erst eingegeben. Sie können also mit der MARKE auch jeden 
Punkt ansteuern und ändern. 

Die MARKE läßt sich mit folgenden Tasten bewegen (wobei Sie dabei 
immer die SHIFT-Tast gedrückt halten müssen, sonst gibt's zusätzlichen 
Zahlensalat!) : 

1. und-*- bewegen sie vorwärts und rückwärts i nnerha Ib einer Zeile 

2. Mit + urrdd ♦ können Sie die MARKE von Zeile zu Zeile bewegen. Dabei 
gilt fol gendes: 

Steht die MARKE am Anfang der Zeile, wird er mit t an das Ende 
gebracht. Mit einem weiteren Drücken auf + geht sie an den Anfang 
der nächsten Zeile. Umgekehrt bewegt t die MARKE vom Zeilenende 
an den Anfang, bezw. vom Zeilenanfang an das Ende der vorhergehen¬ 
den Zei le. 

3. DELETE LINE (SHIFT und 1) löscht die Zeile, in der die MARKE steht, 
aber nicht den ganzen Eingabebereich. 

4. ENTER speichert wieder den ganzen Eingabebereich, gleichgültig, wo 
die MARKE gerade steht. 

Um zu sehen, wie das geht, wollen wir jetzt EXAKT korrigieren. Drücken 
Sie fünfmal + , dann steht die MARKE am Ende der 3.Zeile, direkt hinter 
dem Kommentar. Mit DELETE können Sie jetzt Kommentar und 1 löschen. 
Tippen Sie jetzt die richtige Zahle '2' ein. Der Eingabespeicher hat jetzt 
dieses Bild: 

: EXAKT 

2+2 - ” 

2 2 
+ . 

> 

Das genau wollten Sie haben, also drucken Sie ENTER. 

Wenn Sie jetzt EXAKT laufen lassen, wird es richtig anzeigen: M 2 + 

2 = 4", aber mit DEMO werden Sie eine Überraschung erleben. Es beh- 
hauptet nämlich nach wie vor: " 2 * 2 - 3 H . VLIST zeigt Ihnen, woran 
das liegt. Es gibt nämlich jetzt zwei Versionen von EXAKT im Wörterbuch. 
Die ältere Version steht ein bißchen weiter rechts, die neue hingegen 
ganz am Anfang. Tippen Sie nun EXAKT ein, sucht der Computer die Defi¬ 
nition in seinem Wortschatz, findet die erste und führt sie (richtig) aus. 
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Wenn Sie jedoch DEMO eingeben, sucht der Computer zuerst DEMO und da¬ 
nach EXAKT und findet prompt die alte (falsche) Fassung. Hier hilft uns 
nun REDEFINE. Geben 5?e ein: 

REDEFINE EXAKT 

Danach können Sie mit VLIST feststellen, daß nur noch ein EXAKT im Wör¬ 
terbuch steht. Außerdem arbeiten jetzt beide Wörter richtig. 

Vor REDEFINE sah unser Wörterbuch so aus: 


: EXAKT (richtige Definition) 


: DEMO mit altem EXAKT 


: EXAKT fehlerhafte Definition 


wei tere Wörter 


Mit REDEFINE wird zunächst das alte durch das neue EXAKT überschrieben 



: EXAKT richtige 

Def ini tlon 


[ 


: DEMO mit altem 

exakt 


{ 

: EXAKT alt, mit 

Feh lern 


I - 1 

I wei tere Wörter 


Dann überarbeitet REDEFINE das Wörterbuch und veranlaßt, daß jedes - 
welches das alte EXAKT benutzte, jetzt mit dem. neuen arbeitet. • ^ . 


DEMO mit neuern EXAKT 


: EXAKT neue, korrigierte Version 




REDEFINE braucht zwei Informationen: 

Erstens das alte Wort, welches neu definiert werden soll. Dessen Namen 
geben Sie direkt nach REDEFINE ein. 

Zweitens muß REDEFINE wissen, wo die neue Version steht. Das ist ganz 
einfach: Es Ist immer das neueste Wort im Wörterbuch. Dabei ist es ganz 
gleich, welchen Namen dieses Wort hat. In unserem Beispiel ist es zufäl- 
lig auch EXAKT, es könnte aber genau so gut ein Wort mit Namen BERN¬ 
HARD (und noch dazu mit einer ganz anderen Funktion) sein. 

Bei der Anwendung von REDEFINE ist also Vorsicht geboten: bevor Sie 
es einsetzen, ist es sehr wichtig nachzuprüfen, ob ein Wort, das Sie am 
Anfang des Wörterbuches vermuten, auch wirklich dort steht. Sonst steht 
vielleicht ein völlig anderes Wort am Anfang, und REDEFINE macht lauter 
Unsinn. Die ERROR-Meldung kann man leicht einmal übersehen. 
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Das klingt jetzt furchtbar kompliziert, ist es aber in Wirklichkeit gar 
nicht. Prägen Sie sich nur die Arbeitsfolge gut ein: 

Sie wollen zum Beispiel ein Wort namens KLEMENS ändern. 

1. Tippen Sie EDIT KLEMEN5 und Taste ENTER 

2. Fügen Sie die notwendigen Änderungen ein 

3. Drücken Sie ENTER 

A. Stellen Sie fest, daß keine ERROR-Meldung vorhanden ist 
5. Tippen Sie REOEFINE KLEMENS ein 

Hier folgen noch einige Tips zur Fehlersuche: 

1. Manche Fehler finden Sie einfach durch das Durchsehen des Listings- 
Ein handschriftliches Listing sollten Sie korrigieren, bevor Sie das 
Programm eintippen (getreu dem Grundsatz t am Anfang dieses Kapi¬ 
tels). 

2. Versichern Sie sich, was Sie von jedem Wort erwarten und wie es ins¬ 
besondere auf den stack wirkt. FORTH ist so konzipiert, daß Sie mit 
einfachen Wörtern anfangen und daraus weitere, leistungsfähigere Wör¬ 
ter konstruieren können. Haben Sie einmal die einfachen Wörter korri¬ 
giert und getestet, können Sie sie unbesehen weiterverwenden. 

Kommentare sind hilfreich, denn ein Kommentar sagt halt " dieses 
Wort tut dieses und jenes", und Sie testen, ob dies auch wirklich ge¬ 
schieh t. 

3. Arbeiten Sie wie der Computer und simulieren Sie mit Papier und Blei¬ 
stift den stack. Notieren Sie Schritt für Schritt, wie der stack sich 
verändert, während Sie die Definition durcharbeiten. Damit finden Sie 
meist schon die alltäglichen Fehler. 

4. Gerade wenn ein Wort falsche Ergebnisse erzeugt, sollten Sie besonders 
darauf achten: Sie können wichtige Rückschlüsse auf das tatsächliche 
Verhalten eines Programms daraus ziehen, auch wenn es nicht das tut, 
was Sie eigentlich wollten. 

Feh I ermel düngen sollten Sie anhand des Anhanges B analysieren und 
herausfinden, welche Ursache sie haben. So bedeutet z.B. ERROR 2, 
daß im stack zuwenig Zahlen stehen. Sie müssen also entweder ver¬ 
gessen haben, genügend Zahlen einzustellen oder zuvtele weqqenomrrten 
haben. 

Es gibt noch ein Wort FORGET, das Definitionen aus dem Wörterbuch löscht 
Aber Vorsicht: Das Wort ist ein wahrer Sprengsatz; es löscht nicht nur 
das Wort, das Sie dazu eintippen, sondern Alles, was Sie danach noch 
definiert haben (was also bei VLIST noch davor erscheint}. In unserem 
bisherigen Wortschatz würde mit FORGET EXAKT auch das Wort DEMO ver¬ 
loren gehen. Überlegen Sie also zweimal, bevor Sie FORGET einsetzen, 
es könnte sonst Dinge verschwinden lassen, die Sie noch gut brauchen 
können. 

Wegen der internen Arbeitsweise folgt auf FORGET nicht das sonst üb¬ 
liche OK. Machen Sie sich nichts daraus, wenn etwas schiefgeht, meldet 
sich schon ERROR. 

Zusammenfassung 

FORTH-Wörter LIST, EDIT, REDEFINE, FORGET 



34 


34 


Übungen: 

1. Verwenden Sie REDEFINE, um einen Kommentar in das Wort 5Q aus dem 
vorigen Kapitel einzufügen. 

2. Angenommen, Sie wollen zwei Versionen von SQ gleichzeitig haben. Die 

eine $Q soll die errechnete Quadratzahl auf dem stack ablegen, die 
andere, nämlich SQ. soll es ausdrucken. Überlegen Sie, wie Sie 

mit EDIT aus der bereits gespeicherten Version SQ die andere, SQ, 
definieren können. (Sie dürfen dann aber nicht REDEFINE verwenden). 

3. Ändern Sie unter Verwendung von EDiT und REDEFINE das Wort EXAKT 
in TEST und prüfen Sie mit LIST nach, daß in DEMO jetzt der Name 
geändert ist. 

4. Geben Sie ein (es erfordert ein wenig Geduld): 


: EG 

1 2 3 4. , . . 

A" 

." B" 

.*■ C" 

. ,f D" 

i> cif 

F' f 

G" 

H" 



K" 

• I (_l! 

M" 
N" 
0 M 
ii pn 

.*■ Q" 
R" 
S M 


Mit LIST EG erhalten 5ie ein Listing, das bei ' P' aufhört. LIST zeigt 
nämlich maximal nur 18 Zeilen auf einmal an. Um den Rest auch zu sehen, 
können Sie eine beliebige Taste betätigen. 

Sie werden auch sehen, daß die Zeilen 

12 3 4.. . . 

A" 


geändert sind in 

1 2 3 4. 

. . . A" 

LIST zeigt nicht mehr als fünf Wörter in einer Zeile an und ein been¬ 
det eine Zeile, ebenso wie ein Kommentar, auch wenn sie weniger als 5 
Wörter enthält. 

EDIT arbeitet ähnlich. Das Weiterschalten geht allerdings nur mit ENTER. 
Wenn Sie eine Gruppe von Zeilen bearbeitet haben, drücken Sie ENTER 
und der Computer zeigt die nächste Gruppe an. 
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KAPITEL 8 

WÖRTER, DIE ZAHLEN BEDEUTEN 

Nehmen Siean, es gäbe eine Zahl, die sich nicht häufig ändert, die Sie 
sich aber trotzdem nie merken können - beispielsweise Ihr eigenes Alter. 

Nehmen wir als Beispiel einen älteren Herrn von 85, da läßt unter Um¬ 
ständen das Gedächtnis schon etwas nach. Er könnte deshalb im ACE sein 
Alter speichern, indem er ein Wort dafür definiert: 

: ALTER 
85 


Das funktioniert natürlich. Für solche Definitionen gibt es allerdings eine 
wesentlich elegantere Methode, und zwar 

85 CONSTANT ALTER 

Mit REDEFfNE ALTER ersetzen Sie nun die bisherige Doppelpunktdefinition. 
Jetzt können Sie mit ALTER . das Alter, nämlich ' 85' anzeigen. 

Der Vorteil dieser Methode besteht darin, daß eine Definition mit 
CONSTANT weniger Speicherplatz braucht als die Definition mit : und 

die definierte Zahl bei Bedarf auch schneller zum stack bringt. 

Allerdings ist es jetzt etwas problematisch, diese Zahl wiederum zu 
ändern. An seinem Geburtstag müßte der alte Herr eingeben: 

86 CONSTANT ALTER 
REDEFINE ALTER 

Zum Glück kommt das nur einmal im Jahr vor. Es gibt aber Fälle, in 
denen solche Zahlen Öfter zu ändern sind. Nehmen Sie zum Beispiel den 
Benzinpreis. Seit dem Ölschock 1973 ist er geklettert und hat sich zeit¬ 
weise so rasch verändert, daß die Tankwarte Mühe hatten, ihre Tanksäu¬ 
len immer rechtzeitig umzustellen r 

Dann folgte die Energie-Sparwel le, und die Preise veränderten sich 
- wenn auch nicht ganz so schnell - nach unten. 

Für solche Fälle sind Konstante nicht gut geeignet. Deshalb gibt es 
eine andere Möglichkeit: 

129 VARIABLE BENZIN 

Damit wird ein Wort BENZIN definiert, das die Zahl 129 (den aktuellen 
Preis für einen Liter Benzin in Pfennigen) speichert. Es ist zwar etwas 
umständlicher, diese Zahl wieder herzuholen, dafür' können Sie sie aber 
einfach ändern. BENZIN ist eine Variable . Die Zahl 129 ist ihr Wert. 

Um diese Zahl auf dem stack abzulegen, verwendet man das Wort @ (man 
nennt es "holen"). Mit 

BENZIN @ 

wird also die Zahl 129 im stack gespeichert. (Kurz zur Erinnerung: Wäre 
BENZIN mit CONSTANT definiert worden, hätten Sie das @ nicht ge¬ 
braucht). Mit . kann man den Wert jetzt natürlich anzeigen. 

Seit wir den Benzinpreis vor kurzem definiert haben, ist er schon wie¬ 
der auf 1,32 DM gestiegen, wir müssen also den Wert von BENZIN auf 
132 ändern. Das geschieht mit dem Wort ! {man sagt dazu "speichern' 1 ) 

132 BENZIN ! 
t + 

Wert zu verändernde Variable 

Jetzt können Sie mit 

BENZIN @ . 

den neuen Wert 132 anzeigen. 
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So bequem können Sie eine gespeicherte Zahl, die mit : oder 
CONSTANT definiert wurde, nicht ändern. Dazu brauchen Sie REDEFINE, 
und eine ganz wichtige E inschränkung für REDEFINE ist die Tatsache, 
daß es nur über die Tastatur angewendet werden kann. Eine Varia¬ 
ble wie BENZIN dagegen kann auch durch Ereignisse im Programm 
selbst geändert werden. Das folgende Wort OBEN zum Beispiel bildet 
das Quadrat einer Zahl aus dem stack (indem es das Wort 5Q aus 
Kapitel 6 verwendet), und speichert das Ergebnis nach BENZIN. 

: QBEN 
( K - ) 

( gibt BENZIN den Wert K*K) 

SQ BENZIN ! 

Mit REDEFINE kriegen Sie das nicht hin! 

Versuchen Sie jetzt folgendes: 

BENZIN 

Ich weiß nicht, was für eine seftsame Zahl jetzt auf Ihrem Bildschirm 
erscheint, es ist auf jeden Fall nicht der Benzinpreis (Gott sei Dank!). 

Tippen Sie nun diese Zahl, die auf dem Bildschirm gezeigt wird, 
und nachfolgend @ und . ein, dann erhalten Sie den richtigen Wert 
von BENZIN. Irgendwie muß also diese merkwürdige Zahl, die auf 
dem Bildschirm angezeigt wird, mit BENZIN etwas zu tun haben: Man 
nennt diese Zahl die Adr esse der Variablen BENZIN, d.h. BENZIN 
hinterläßt seine Adresse im stack und sagt, "wer meinen Wert 
braucht, kann ihn hier jederzeit finden". Die Adresse sagt den 
Wörtern @ und ! wo der Wert zu holen bezw. zu speichern ist. 

Dazu müssen wir ein wenig ins Detail gehen. Stellen Sie sich die Elek¬ 
tronik des Jupiter ACE als ein langes Regal mit 65536 Fächern vor. 
Alte Fächer sind laufend nummeriert mit den Nummern 0 bis 65535, 
ihren Adressen, ähnlich Hausnummern in einer langen Straße. 

In jedes Fach kann nun eine elektronische "Box" gestellt werden, 
die dann die Adresse des Fachs erhält. Die Box speichert eine Zahl. 
Es gibt, entsprechend den un tersch iedl ichen elektronischen Komponenten, 
verschiedene Arten von Boxen: 

J Eine ROM (=Read Qnly Memory) - Box ist verriegelt. Sie können 
ihren Inhalt nicht verändern. Sie ist aber sozusagen durchsich¬ 
tig, so daß Sie die Zahl feststellen können. Im ACE enthaften 
die Adressen 0 bis 8191 ROM-Boxen. Sie enthalten die verschiüs- . 
selten Befehle, die FORTH zum Laufen bringen, und die fest ver¬ 
drahteten, immer vorhandenen FORTH-Wörter. 

|i Eine RAM (Random Access Memory) - ßox ist nicht verriegelt. 

Sie können ihren Inhalt nicht nur sehen, sondern auch austau- 
sehen. Die Adressen 8192 bis 16383 des ACE enthalten RAM-Boxen. 
Ihre eigenen FORTH-Wörter zum Beispiel sowie das Fernsehbild 
sind in einer verschlüsselten Form in solchen RAM-Speichern nie¬ 
dergelegt , 

|J Andere Fächer wiederum sind leer, wie Bauplätze ohne Häuser, 
für die schon Hausnummern vergeben sind, im ACE sind die 
Adressen von 16384 bis 65535 leer, können aber durch Anschluß 
geeigneter Zusatzgeräte aufgefüllt werden. 

Eine wesentliche Einschränkung all dieser Boxen (wir sollten ab jetzt 
zutreffender sagen: Speicherpl ätze ) ist, daß die Zahlen, die dort ge¬ 
speichert werden sollen, zwischen 0 und 255 liegen müssen. Das ist 
so wichtig, daß man diesen Zahlenwerten sogar einen eigenen Namen 
gegeben hat: Eine Zahl zwischen 0 und 255 heißt Byte. Jeder Speicher¬ 
platz enthält also ein Byte. 
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Eine normale Zahl kann auf dem ACE zwischen -32768 und 32767 liegen, 
ist also im allgemeinen durch ein Byte nicht darstellbar. Die Codierung 
Ist aber in Bytes möglich. (Darüber erfahren Sie mehr in Kapitel 17). 
Damit kann jede Zahl in zwei benachbarten Speicherplätzen abgelegt 
werden. So hält also z.B. BENZIN seinen Wert. Die Adresse von 
BENZIN bezeichnet den ersten der zwei Plätze. 

Jetzt können wir also genau sagen, was @ und ! tun: 

@ ( Adresse - ZahI) 

Die Adresse wird aus dem stack geholt. Sie definiert zwei benachbar¬ 
te Speicherplätze, nämlich den mit der Adresse und den darauffolgen¬ 
den. Der Inhalt dieser zwei Plätze wird zu einer Zahl entschlüsselt, 
die im stack abgelegt wird. 

! ( Zahl - Adresse) 

Zahl und Adresse werden vom stack geholt. Die Zahl wird in zwei 
Bytes verschlüsselt und dann in den Speicherplatz mit der angege¬ 
benen Adresse und dem nachfolgenden Platz gespeichert. 

Zusammenfassung: 

Konstante, Variable 
Speicher, ROM, RAM 
FORTH-WÖrter CONSTANT VARIABLE @ ! 

Übungen: 

1. Definieren Sie zwei nützliche Wörter für Ihren eigenen Gebrauch 
(sie sind nicht fest installiert). 

? ( Adr’esse - ) (genannt "Abfrage 1 ') 

zeigt die Zahl an, die in den beiden Speicherplätzen unter der an¬ 
gegebenen Adresse ist. BENZIN ? z.B. soll den Wert von BENZIN 
anzelgen. 

+ ! ( Zahl ,Adresse - ) (genannt "Speicher plus") 

soll ähnlich wirken wie ! , nur anstatt die alte Zahl durch eine 

neue aus dem stack zu ersetzen, soll ein Wert aus dem stack hinzu¬ 
addiert werden. Wenn Sie also z.B. fe ststellen, daß Benzin schon 
wieder um 6 Pfennige teurer geworden ist, sollen Sie eingeben 

6 BENZIN +! 

Versuchen Sie beide Wörter selbst zu definieren und vergleichen 
Sie dann Ihre Lösung mit der unseren. 


■7 



: +! 

SWAP OVER @ + SWAP ! 

> 

g 

2. Berechnen Sie 2 (die "8. Potenz von 2" oder "2 achtmal mit sich 
selbst mu I tipl iziert"). Wieviele verschiedene Bytes gibt es? 

g 

Antwort: 2 
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Es scheint so, als ob die wichtigen Computerbegriffe in Potenzen 

von 2 ausgedrückt werden, ein Byte ist also nicht so seltsam, wie 

es zunächst den Anschein hat. 

Berechnen Sie auch 2* ° und 2 i 6 - Wo sind Ihnen diese Zahlen schon 
begegnet? Darüber werden wir im Kapitel 17 mehr sehen, 

3. Sind 2 Bytes aus zwei Speicherplätzen gegeben, können Sie diese in 
folgender Weise zu einer Zahl umrechnen 

3.1. Nehmen Sie das Byte aus dem zweiten Platz, mu 11 ip I iz i eren Sie es 
und addieren das Byte aus dem ersten Platz hinzu. |mit 256 

3.2- Ist das Ergebnis 32768 oder größer, dann ziehen Sre 65536 davon 
ab ( die Zahl wird negativ ), 

Versuchen Sie umgekehrt eine Methode zu finden, mit der Sie eine Zahi 
in 2 Bytes zerlegen können. ( 3.2. umzukehren ist einfach; um 3.1. um¬ 

zukehren, dividieren Sie durch 256, so sind Quotient und Rest die beiden 
Bytes, Denken Sie daran, daß die Zahlen zwischen -32768 und 32767 lie¬ 
gen müssen). 
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Die Wörter, die wir bisher neu entwickelt haben, sparen dem Anwender 
zum einen Zeit: um eine Zahl zu quadrieren, braucht er nicht mehr 
DUP * zu tippen, sondern es genügt SQ. 

Zum anderen - und dies Ist noch wichtiger - wird FORTH durch solche 
Definitionen immer leistungsfähiger. 

Mit SQ kann es eine Zahl quadrieren, ohne daß sich der Anwender wei¬ 
ter darum kümmern muß, wie dies geschieht. 

Diese Wörter sind im Grunde einfache Auflistungen bereits bekannter, an¬ 
derer Wörter. Das Programm arbeitet sie Schritt für Schritt vom Anfang 
zum Ende ab und stoppt dann. 

Wir brauchen aber in der Praxis Wörter, die unter verschiedenen Be¬ 
dingungen auch verschieden arbeiten, d.h. Entscheidungen treffen . Damit 
wollen wir uns jetzt beschäftigen. 

Nehmen wir an, Ihr Kontostand bei der Bank sei in der Spitze des 
stack ( oder wie wir in Zukunft fachgerechter sagen wollen: im top of 
stack, abgekürzt TOS ) gespeichert: 

Der Bankstand ist positiv oder negativ, je nachdem, ob Sie ein Gutha¬ 
ben besitzen oder Ihr Konto überzogen haben. Mit . wird der Konto¬ 
stand angezeigt. Hierbei sind Schulden durch ein gekennzeichnet. 

Allerdings arbeitet die Bank nicht so, sondern sie gibt den absoluten 
Betrag des Kontos an { also den Betrag ohne Vorzeichen) und ergänzt 
je nach Situation SOLL oder HABEN. Einen solchen Vorgang kann man mit 
einem Flußdiagramm verdeutlichen: 
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Wie liest man ein solches Flußdiagramm ? 

Sie beginnen bei " Start" und folgen den Pfeilen, bis Sie bei " Stop" 
angelangt sind. Treffen Sie dabei auf ein rautenförmiges Kästchen, ver¬ 
zweigt sich der Weg. Sie haben nun die Wahl, welchen Weg Sie folgen 
wollen, müssen also eine Entscheidung treffen. 


Teile dieses 
^ Start 


) 


ußdiagramms 


können Sie bereits in FORTH übersetzen: 

wird zu : KONTO 

( Bankstand - ) 


Absoluten Wert 
des Kontos 
anzeigen 


wird 2 u ABS « 

(s.Kapitel 4) 


" HABEN' 
anzeigen 


wird zu 


HABEN 


,r SOLL” 
anzeigen 



wird zu SOLL " 


wird zu 


Bleibt jetzt noch das Problem, das Entscheidungskästchen zu übersetzen. 
Hierfür brauchen Sie einige neue FORTH^Wörter: IF, ELSE und THEN. 

( Dies sind übrigens drei original englische Wörter: IF heißt 'wenn' , 
THEN heißt 'dann", ELSE heißt "sonst'). 

Doch zunächst einmal die Definition für unser Wort KONTO: 

: KONTO 

( Bankstand - ) 

DUR ABS . 0< 

IF 

( Wenn Kontostand negativ) 

. M SOLL '■ 

ELSE 

( Wenn Konto 0 oder positiv) 

Haben " 

THEN 


IF trifft eine Entscheidung zwischen zwei Wegen: der eine führt von IF 
nach ELSE, der andere von ELSE nach THEN. Bei THEN treffen sich die 
Wege wieder. 

Entscheidungsgrundlage für IF ist die Zahl am TOS { top of stack “ 
Spitze des stack), welche anschließend verloren geht. Diese Zahl am TOS 
heißt deshalb auch Bedi ngung . Ist die Bedingung nicht erfüllt, folgt das 
Programm dem Weg ELSE - THEN; ist sie erfül It , dem Weg IF - ELSE. 
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IF ( = wenn) die Bedingung am TOS erfüllt ist, folge diesem Weg 
{der mit IF beginnt. 

ELSE (=sonst) d.h. wenn sie nämlich nicht erfüllt ist, folge diesem 
Weg (beginnend mit ELSE). 

THEN (=dann) fahre hier fort. 

Anmerkung: Wenn Sie mit der Compu tersprache BASIC vertraut sind, 
dann müssen Sie hier ein wenig umdenken. 

Im Allgemeinen wird ein eigenes Wort definiert, das die Bedingung 
prüft und danach auf denn stack eine ' 1'ablegt, wenn sie erfüllt ist, 
und eine 0 ' , wenn sie nicht erfüllt ist. Das Ergebnis einer solchen 
Prüfung, nämlich " 1' oder ' 0' , nennt man einen MERKER (flag). IF 
benutzt dann diesen MERKER für die weitere Entscheidung. 

Wir werden im folgenden mit einigen, Ihnen vielleicht nicht so vertrau¬ 
ten Begriffen arbeiten, die hier kurz erläutert werden sollen: 

- Ist eine Bedingung erfüllt, so sagt man von ihr: sie ist "wahr". 
Der entsprechende MERKER ist die 

- Ist die Bedingung nicht erfüllt, so heißt sie "falsch". Der zuge¬ 
hörige MERKER ist die ' 0 '. 

Es ist vielleicht etwas verständI icher, wenn Sie gedanklich das Wort 
"Bedingung" durch den Begriff "Behauptung" oder "Annahme" er¬ 
setzen. "Wahre 1 ' oder "falsche" Behauptungen sind in unserem Sprach¬ 
gebrauch ja durchaus geläufig. 

Das Zeichen < bedeutet "kleiner als". Stellt sich einer vor Sie hin 
und behauptet "2 < 3", dann nicken Sie weise mit Ihrem Haupt und 
sagen: "Das ist wahr"; käme er aber an mit der Behauptung 

"3 < 2", würden Sie voll Entrüstung antworten: "Das Ist falsch". 

Zurück zu unserem Beispiel :Wir haben bereits eine solche Prüfung ver¬ 
wendet, nämlich 0< . Hier soll folgende Anweisung ausgeführt 

werden: "Nimm die oberste Zahl aus dem stack und stelle fest, ob 
sie negativ ist". 

Konto negativ bedeutet Annahme 0< trifft zu, 

danach: 1 auf den stack {= Aussage wahr!) 
und: IF geht den Weg IF - ELSE. 

Konto positiv bedeutet: Annahme 0< trifft nicht zu, 

danach: 0 auf den stack (= Aussage falsch') 
und: (F geht den Weg ELSE - THEN. 

Wir haben mit DUP angefangen, sonst wäre nach der Anzeige des abso¬ 
luten Wertes der Kontostand verloren gegangen und der Vergleich 0< 
nicht mehr möglich gewesen. 

Gehen Sie KONTO nochmals durch und zeichnen Sie die Entwicklung 
der Daten im stack auf. Tun Sie das ruhig zweimal, und zwar mit 
einem positiven und einem negativen Anfangswert. 
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FORTH kennt noch weitere Prüfwörter: 

- (K,Q, - Merker) nimmt die obersten beiden Zahlen vom stack und 

prüft, ob sie gleich sind. 


< (K,Q - Merker) nimmt die obersten beiden Zahlen vom stack und 

prüft, ob die zweite (K) kleiner ist als die oberste (Q). Die Bedin¬ 

gung ist nur erfüllt ("wahr), wenn sie kleiner ist, nicht wenn 
beide Zahlen gleich sind. 

> (K,Q, - Merker) nimmt die obersten beiden Zahlen vom stack und 

prüft, ob die zweite (K) größer ist als die erste (Q). 

0 - { k - Merker) nimmt die oberste Zahl und prüft, ob sie 0 ist. 

0 < (K - Merker) nimmt die oberste Zahl und prüft, ob sie negativ ist 
(kleiner als 0, nicht 0 selbst. 

0 > (K - Merker) nimmt die oberste Zahl und prüft, ob sie positiv ist 

(größer als 0, nicht gleich 0. 

Immer gilt: Ein Prüfwort hinterläßt eine 1 im stack, wenn die Bedin¬ 
gung erfüllt (=wahr), und eine 0, wenn die Bedingung nicht erfüllt 
(-falsch) ist. 

Die Wörter 0=, 0> , und 0< können natürlich auch durch 0 -, 0 > und 
0 < ersetzt werden. 

In einem Entscheidungsvorgang kann der ELSE-Zweig entfallen, wenn 
bei negativem (falschem) Prüfergebnis (im stack ist 0} nichts beson¬ 
deres geschehen soll. 

Diesen Vorgang könnte man dann so interpretieren: 

Wenn ( IF) die Zahl auf dem stack wahr ist, folge dem IF-Weg. 

Dann (THEN) fahre in jedem Fall hier fort. 

Im folgenden Beispiel soll eine eingebene Zahl überprüft werden. Hat 
Sie den Wert 13, wird sie durch 12 ersetzt. Bei anderen Werten pas¬ 
siert nichts 


: DREIZEHN 
(K - Q) 

DUP 13 = 

IF 

DROP 12 
THEN 


Da für andere Zahlen als 13 
keine Aktivität notwendig ist, 
brauchen Sie auch ELSE nicht. 
Dazu das F I ußdi agramm: 
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Ein Wort, dessen Nutzen Sie möglicherweise erst später entdecken, ist 

?DUP. 

?DUP dupliziert den TOS, aber nur dann, wenn er ungleich 0 ist 
(K - K,K) wenn K ungleich 0 
(0 - 0 ) 

Nehmen Sie an. Sie brauchen ein Wort, das den TOS nur ausdruckt, 
wenn er nicht 0 ist. Ohne ?DUP würde das so aussehen 


DUP 

IF 

ELSE 

DROP 

THEN 


Mit ?DUP geht es viel einfacher 


?DUP 

IF 

THEN 


Arbeiten Sie beide Wörter durch und prüfen Sie, was im stack geschieht 


Zusammenfassung; 

F lußdiagramme 

Prüfwörter, MERKER "wahr" und "falsch" 

FORTH-WÖrter: IF, ELSE, THEN, =, <, >, 0=, 0< , 0>, ?DUP 

Übungen r 

1. Eine 0 im stack wird durch 0~ in 1 umgewandeit. Ebenso wird 1 

zu 0. Mit 0= kann man also ein Prüfergebnis umkehren, aus 
"wahr" wird "falsch”. Wollen Sie mit IF und THEN nur dann etwas 

tun, wenn das Ergebnis einer vorherigen Prüfung negativ 

('■falsch”) war, 

dann drehen Sie es mit 0= um und verwenden IF, THEN ohne ELSE. 

2. Oer Vergleich zweier Zahlen auf "größer als” oder "kleiner a/s" 

wird "falsch", wenn die beiden Zahlen gleich sind. Definieren Sie 
ein Prüfwort 0 > =, das gleiche und größere Zahlen als "wahr" ak¬ 
zeptiert . 
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3. Was geschieht, wenn Sie IF, THEN und ELSE außerhalb einer Wortde¬ 
finition verwenden? Der Computer meldet ERROR 4. Er will (F verar¬ 
beiten, weiß zu diesem Zeitpunkt aber nicht, wo ELSE und THEN 
zu finden sind. Anders innerhalb einer Wortdefinition: Bei der Über¬ 
nahme ins Wörterbuch werden die verschiedenen Wörter (als Adres¬ 
sen) erkannt und gespeichert. 

4. Versuchen Sie, ein Wort mit IF, ELSE und THEN in der verkehrten 
Reihenfolge zu definieren. Machen Sie die Definition nicht zu 
groß, es wäre schade um die Mühe. Der Computer mag das 
nämlich nicht und läßt mit ERROR 5 das ganze Wort verschwinden. 

5. Unter der Faku I tat einer Zahl versteht man das Produkt 1*2*3*. 

bis zu dieser Zahl. Die übliche Schreibweise dafür ist die Zahl, ge¬ 
folgt von einem Ausrufungszeichen 

1 ! = 1 

2 ! - 1*2 - 2 

3 ! = 1*2*3 = 6 

4! = 1*2*3*4 ^ 24 

usw. 

Auch 0! wird als 1 definiert. Für diese Festlegung gibt es 
durchaus mathematische Begründungen. 

Geben Sie das Wort FAK ein: 

: FAK 

(n - n!) 

?DUP 

IF 

DUP 1- FAK * 

EL5E 

1 

THEN 


Wir verwenden hier eine ganz raffinierte Technik, die sogenannte Re- 
k u rsion , d.h. FAK benutzt sich selbst! Wir können so verfahren, 
wei I 

2 ! = 2 * 1 ! 

3! « 3 * 2! 

4! - 4 * 3! 
usw. 

ist. 

Um also die Fakultät einer Zahl zu berechnen, ermitteln wir 
zunächst die Fakultät der vorhergehenden Zahl und mu11ipl izieren 
diese dann mit der Gegebenen. Das gleiche passiert mit den 
Fakultäten der kleineren Zahlen, bis 0 erreicht ist. Da 0! = 1 ist, 
brauchen wir 

IF_ELSE 1 THEN 


6. Eine allgemeine Form der Rekursion liegt vor, wenn mehrere 
Wörter sich gegenseitig verwenden. FORTH ist 2 war für eine solche 
Anwendung nicht entwickelt, sie kann aber trotzdem durchgef ü hrt 
werden. Das Problem liegt darin, daß das zuerst definierte Wort 
die nachfolgenden nicht benutzen kann. Sie sind im Wörterbuch 
noch nicht defin iert.Der Computer reagiert mit einem Q 




45 


45 


Um dies zu lösen, müssen Sie mit REDEFINE arbeiten. Wollen Sie 
z.B. A und B definieren, die sich gegenseitig verwenden, müssen 
Sie 

1. ein Scheinwort ( Dummy ) A für die Verwendung in B definieren 

: A 

i 

2. B endgültig definieren. Diese Definition würde zwar nicht richtig 
funktionieren, weif A ja ein Dummy ist, Sie können aber B rich¬ 
tig ein tasten. 

3. A endgültig eintasten 

4. Dann 

REDEFINE A 

eingeben, so daß das Dummy durch die richtige Definition er 
setzt wird. 


7. Das Vorzeichen einer Zahl soll "1" sein, wenn die Zahl positiv 
ist; "0" wenn sie Null, und "-1" wenn sie negativ ist. 

Schreiben Sie ein FORTH-Wort SGN, um eine Zahl im stack durch 
diese Vorzeichenbedeutung zu ersetzen. 



KAPITEL 10 

WIEDERHOLUNG 


Bisher haben wir noch keine Möglichkeit kennengelernt, Teile eines 
definierten Wortes mehr als einmal zu benutzen. Der Computer arbeitet 
die Definition Schritt für Schritt ab, überspringt unter dem Einfluß 
von IF, ELSE und THEN bestimmte Abschnitte und kommt zum Ende. 

Was ist zu tun, wenn z.B. eine unbekannte Anzahl von Zahlen zu¬ 
sammenaddiert werden soll? Eine Grenze muß eingebaut werden, damit 
der Computer weiß, wann er aufhören soll. Sagen wir ihm also, er 
soli Zahlen solange addieren, bis er eine 0 erkennt. Wir Jegen zu¬ 
nächst eine 0 im stack ab und packen alle zu addierenden Zahlen 
obendrauf. 

Es sollen wenigstens 2 wei Zahlen addiert werden: Wir addieren die 
ersten beiden Zahlen zusammen und prüfen noch, ob die 0 inzwischen 
schon auf den zweiten Platz nachgerückt ist. Ist dies der Fall, müssen 
wir sie noch loswerden und sind fertig; andernfalls addieren wir wei¬ 
ter. Im Flußdiagramm sieht das so aus: 



Dazu das FORTH-Wort: 

; ■++ 

( addiert Zahlen im stack zusammen bis 0 auftritt) 

BEGIN 

+ ( 0 oder nächste Zahl, aufgelaufene Summe) 
OVER 0= 

UNTIL 
SWAP DROP 
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Hier- ist UNTIL das entscheidende Wort. Sie können zwischen BEGIN 
und UNTIL einfügen, was Sie woilen, es muß aber zum Schluß immer 
eine Bedingung (wahr oder falsch) auf dem stack abgelegt sein, auf 
Grund der UNTIL entscheiden kann. Ist die Bedingung wahr, dann 
wird die Wiederholung beendet und der Computer bearbeitet den 
nachfolgenden Abschnitt. Ist sie falsch, springt das Programm zurück 
zu BEGIN 



Wie sieht das bei unserem Wort ++ aus? Bei BEGIN wird unterstellt, 
daß der stack die bisher aufgelaufene Summe und die nächste zu ad¬ 
dierende Zahl enthält. Erst danach folgt die 0, die das Programm be¬ 
endet, oder eine weitere Zahl. (Das geht schief, wenn Sie nicht min¬ 
destens zwei Zahlen ungleich 0 vorrätig haben. Wir werden diesen Feh¬ 
ler später beheben). 

+ addiert die beiden oberen Zahlen und legt die Summe am TOS ab. 
OVER kopiert die nächste Zahl an die Spitze und wir können mit 0- 
prüfen, ob es die 0 ist. Wir verwenden hier' 0-, weil eine Zahl un¬ 
gleich 0 das Prüfergebni s "falsch" bringt und den MERKER "0" auf 
dem stack ablegt. Dadurch wird UNTIL veranlaßt, zu BEGIN zu 
verzweigen, und die nächste Addition kann folgen. Wird die Zahl 0 
erkannt, geht das Programm weiter, wirft die 0 weg und läßt nur 
noch die Summe im stack stehen. 

Ein Nachteil von UNTIL ist sicher, daß der Computer den Abschnitt 
zwischen BEGIN und UNTIL wenigstens einmal durchlaufen muß. Das 
ist auch einleuchtend, denn bei BEGIN ist ja noch keine Prüfung und 
Entscheidung möglich. 

Es gibt aber eine Möglichkeit, dieses Problem zu umgehen, indem 
man die Wörter WHILE und REPEAT statt UNTIL verwendet. Die 
5chleife hat dann die Form 

BEGIN 


WHILE 

i 

i 

REPEAT 


Hier entscheidet WHILE, ob der Abschnitt bis REPEAT durchlaufen 
wird (das ist der Fall, wenn es auf dem stack die Aussage "wahr" 
findet), oder ob die Schleife verlassen wird. 
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Es gibt zwei wesentliche Unterschiede zwischen UNTIL und WHILE. 

REPEAT: 

1. UNTIL beendet die Wiederholung, wenn es die Aussage "wahr" findet, 
WHILE beendet, wenn es "falsch" erkennt. 

2. Bei Verwendung von WHILE gibt es einen Programmabschn i tt (WHILE- 
REPEAT), der nie durchlaufen werden muß, wenn WHILE ganz zu 
Anfang die Aussage "falsch" erkennt. 

Damit kommen wir zu einer besseren Version von ++ : 

: +++ 

( addiert Zahlen im stack bis 0 erkannt wird) 

0 ( als aufgelaufene Summe bei Anfang) 

BEGIN 

( aktuelle aufgelaufene Summe, nächste zu add.Zahl) 

SWAP ?DUP 
WHILE 
+ 

REPEAT 


Sofort nach BEGIN steht die aufgelaufene Summe im T05, die nächste 
zu addierende Zahl folgt direkt danach. Wir bringen sie In den TOS,, 
prüfen, ob sie 0 ist und addieren sie, wenn sie nicht 0 ist (d.h. wenn 
die Aussage "wahr" ist). 

Ist sie 0, gehen wir- zum Ende. ?DUP ist dafür ein sehr nützliches 
Wort. 

+++ verhält sich auch richtig, wenn nur eine oder gar keine zu addie¬ 
rende Zahl im stack ist. Prüfen Sie es nach! 

Die beiden Arten, die mit BEGIN anfangen, wiederholen eine 'Schleife 
solange, bis eine einprogrammierte Bedingung eintritt, die das Ende 
veranlaßt. Es gibt noch einige andere Arten von Schleifen. Sie 
beginnen mit dem Wort DO, durchlaufen die Schleife mit einer vorgege¬ 
benen Häufigkeit und verwenden dazu einen Zähler. 

Die einfachste Form Ist 

. . .DO_LOOP_ 


als Bestandteil einer VVortdef ini tion. 
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HD nimmt zwei Zahlen vom stack, die bestimmen, wie oft die Schleife 
durchlaufen wird. Die oberste Zahl bestimmt, wo der Zähler beginnt, 
die zweite Zahl setzt die Grenze: Die Schleife ist beendet, wenn der 
Zähler diese Zahl erreicht hat. 

In der Folge 

6 3 DO... . LOOP 

wird der Bereich zwischen DO und LOOP 3 mal durchlaufen. Der Zähler 
beginnt bei 3, hat in der zweiten Runde den Wert 4 und in der dritten 
Runde 5. Beachten Sie, daß der Zähler die Grenze nicht erreicht, sie 
muß immer um 1 hoher sein als der Endwert, den der Zähler 
erreichen • sol I . LOOP zählt 1 zum Zähler hinzu, prüft, ob der 
Endwert erreicht ist und springt zurück zu DO, wenn dies nicht der 
Fa 11 ist. 

Den "Zählerstand” können Sie erfahren und auf dem stack ablegen, 
wenn Sie das Wort J verwenden. 

Wir definieren jetzt das Wort NR, das uns alle Zah I en werte, die der 
Zähler während der Ausführung hat, anzeigt: 

: NR 

{ Grenze - ) 

0 

DO 

I . ( druckt den Zähler aus) 

LOOP 

> 

3 NR 

zeigt an; 0, 1, 2 

1 NR 

zeigt nur 0 an. 

Versuchen Sie 0 NR und -1 NR. Sie erhalten in beiden Fällen die An¬ 
zeige 0 . Daraus lassen sich zwei Regeln ableiten: 

1. Wie bei BEGI N . . . UNTIL wird auch bei DO...LOOP die Schleife min¬ 
destens einmal durchlaufen, gleichgültig wie Anfangs- und Endwert 
heißen (deshalb zeigt NR auch die 0 an). 

2. LOOP beendet den Rücksprung, wenn der Zähler (nach der Addition 

von 1) gleich oder größer als der Endwert geworden Ist. 

Für -1 NR heißt das: Der Endwert ist -1, der Zähler geht nach 

der Anzeige 0 auf ), ist also großer als -1, das Programm wird 

beendet. 

LOOP erhöht den Zähler immer um 1. Es gibt aber eine Variante +LOOP, 
die die oberste Zahl aus dem stack nimmt und zum Zähler addiert 

(diese Zahl heißt Step = Schritt). Die Regeln 1 und 2 gelten auch hier, 
es sei denn, der step ist negativ. Dann nämlich hört +LOOP auf, 
wenn der Zähler gleich oder kleiner als der Cndwert ist. Oben 5ie ein: 

: COUNTDOWN 

-1 10 

DO 


. -1 


+LQ0P 
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Ohne die Sonderregel ung für einen negativen step würde COUNTDOWN 
nur 10 anzeigen und dann aufhören. 

Es können mehrere dieser Schleifen ineinander verschachtel t werden, 
Sie laufen dann gleichzeitig ab, wie im folgenden Wort STERNE. Diesem 
Wort gibt ein Dreieck aus Sternen aus. Mit Rücksicht auf die Arbeite 
weise von LOOP legen wir noch eine 1 zu der eingegebenen Zahl 7 u. 


STERNE 

( Anzahl der Reihen 

CR 1+ 1 
DO 
I 0 

DO 

LOOP 

CR 

LOOP 


Jetzt laufen zwei Zähler zugleich, ein langsamer für die Reihen und 
ein schneller für die Sterne in jeder Reihe. Es stellt sich die Frage, 
welchen Wert I in diesem Fall darstellt. Generell gilt: Laufen gleich¬ 
zeitig zwei oder mehr Schleifen ab, entspricht I dem Zähler der inner¬ 
sten oder ''kleinsten" Schleife. Das ist die Schleife, die in einem List- 
ing am weitesten rechts steht. Der Zähler der nächstgrößeren Schleife 
kann mit einem Wort J dargestellt werden: 


: STERNE 

{ Zahl der Reihen) 
CR 1+ 1 


DO 


1 0 



DO 

| Stern- 

. Reihen- 

ir vti 

j zähl- 

1 zahl- 

LOOP 

CR 

I Schleife 

■ Schleife 

LOOP 


1 

1 


Nur Reihenschleife 
Beide Schleifen 

Nur Reihenschleife 


Bei Ausführung der Stern-Zählschleife (z.B. in der Zeile *"} sind 
beide Schleifen aktiv. Hier würde I den Stern-Zähler und J den Reihen¬ 
zahler ausgeben. In der übrigen Reihen-Zählschleife {also in den Rei¬ 
hen I 0 und CR) ist nur der Reihenzähler aktiv, I repräsentiert den 
Reihenzäh ler, J enthält Unsinn. I kann also in verschiedenen Pro¬ 
grammteilen durchaus verschiedene Zähler wiedergeben. 

Ein anderes Wort I' legt den Grenzwert der innersten Schleife auf 
dem stack ab. 

Beachten Sie bitte, daß I, I' und J nur in der Wortdefinition ver¬ 
wendet werden können, die auch das ihnen entsprechende DO...LOOP 
en thä 11 . 

Alle die Strukturen, die Sie im Kapitel 10 kennengelernt haben, können 
Sie verwenden, so oft Sie wollen. Es gibt nur eine E inschränkung: 

Wenn sie sich überschneiden, müssen sie ineinander verschachtelt 
werden . 
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Lassen Sie uns an den folgenden Beispielen darstellen, in welcher Form 
Do...LOOP und IF.. .ELSE.. .THEN in einem Programm verwendet werden 
können: 

1 . Sie können völlig getrennt voneinander laufen 
entweder DO 

LOOP 

IF 

ELSE 

THEN 


ELSE 

THEN 

DO 

LOOP 

2. I F .. .ELSE.. .THEN eingeschlossen in DO...LOOP 

00 

IF 

ELSE 

THEN 

LOOP 

3. DO...LOOP eingeschlossen in I F .. .ELSE ... THEN 

entweder IF 

DO 

LOOP 

ELSE 

THEN 

oder IF 

ELSE 

DO 

LOOP 

THEN 

IF. . .ELSE...THEN hat zwei Bereiche. DO. ..LOOP kann immer nur in 
einem Bereich Vorkommen. Es ist also verboten zu schreiben 

IF 

DO 

ELSE * -das ist falsch! 

LOOP 

THEN 

Wenn Sie nicht sicher sind, ob 5ie sich bei der Definition eines 
Wortes an die Spielregeln gehalten haben oder nicht: Probieren Sie 
das Wort aus und sehen Sie, was passiert. Der Computer meldet 
ERROR 5 - und vergißt das Wort einfach. 

Jetzt folgen zwei Wörter, mit denen Sie einen Programmablauf vorzeitig 
verlassen können: LEAVE, um aus DO...LOOP herauszukommen, und EXIT 
um gleich ein ganzes Wort zu verlassen. 

LEAVE darf nur innerhalb DO...LOOP (oder D0...+L00P) verwendet wer¬ 
den.Es geht nicht direkt heraus, sondern setzt den Sch I eifen zäh I er 
auf den Endwert, so daß LOOP beim nächsten Durchgang die Schleife 
beenden muß. 
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EXIT kann überall eingesetzt werden, außer in DO...LOOP (oder DO... 
+LOOP). Gleichgültig, welche Bedeutung das Wort hat, in dem EXIT 
vorkommt, der Computer verläßt es sofort und geht weiter zum nächsten 
Wort. 

Schließlich folgen noch zwei Wörter, die sehr nah mit I, I’ und J ver¬ 
wandt sind. Um ihre Bedeutung zu verstehen, müssen Sie wissen, daß 
es im Computer in Wirklichkeit zwei Stacks gibt: Den einen, den Sie 
längst kennen- und liebengelernt haben (der DATA -stack), und einen 
zweiten, welcher RETURN -stack heißt. Wird ein FORTH-Wort ausgeführt, 
muß der Computer wissen, wohin er nach der Ausführung zurückkehren 
soll (=RETURN). Dies gelingt ihm mit Hilfe der Rücksprung-Adresse 
(return-adress), die irrt RETURN-stack gespeichert ist. 

Benutzt nun ein Wort ein zweites, dieses ein drittes und das Dritte 
wiederum ein viertes, dann stapelt der Computer fein säuberlich alle 
Adressen übereinander und findet wieder seinen Weg zurück zum ersten 
Wort. 

Dieser RETURN-stack ist aber nicht ausschließlich für den interen 
Gebrauch des Computers bestimmt, sondern Sie können ihn auch selbst 
benutzen, um vorübergehend Zahlen aus dem DATA-stack abzulegen. 

Dazu brauchen Sie die Wörter >R und R> . 

(Zahl im DATA-stack-) wird gesprochen "nach R" und überträgt 
eine Zahl von der Spitze des DATA-stack an die Spitze des RETURN- 
stack . 

R>(- Zahl aus dem RETURN-stack) heißt f, R von” und ist die Umkehr¬ 
ung von >R. Es überträgt eine Zahl aus dem RETURN-stack in den DA- 
TAstack. 

Da der RETURN-stack normalerweise für Rücksprung-Adressen verwendet 
wird, muß die Anzahl der verwendeten >R und R> innerhalb einer Wort¬ 
definition ausgeglichen sein. Sie können zwischen >R und R> auch nicht 
EXIT verwenden, da dann im RETURN-stack keine gültige Adresse steht. 

Was haben nun diese beiden mit den Wörtern I, I 1 und J zu tun? 
DO-Schleifen legen ihren Zähler und ihren Grenzwert ebenfalls im RE¬ 
TURN-stack ab (wobei der Zähler ganz oben ist). I, 1' und J machen 
nun nichts anderes, als eine Kopie des jeweiligen Platzes vom RETURN- 
stack im DATA-stack abzuiegen: I kopiert den obersten Wert, I 1 den 
zweiten, und J den dritten von oben. Sie können also damit die Zahlen, 
wieder zurückkop ieren, die Sie mit >R auf dem RETURN-stack abgelegt 
haben. Es bedeutet aber weiterhin, daß >R und R> auch innerhalb 
einer DO-Sch!eife ausgeglichen sein müssen. 


Zusammenfassung: 

BEGIN.UNTIL 

BEGIN.WH ILE.REPEAT 

DO.LOOP 

DO.+LOOP 

LEAVE zum vorzeitigen Abschluß einer DO.. .LOOP-Schleife 
EXIT zum Verlassen eines Wortes 
I, I-, J, >R, R> 
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Übungen: 


1. Mit dem folgenden Wort PRIM kann man prüfen, ob eine Zahl Prim¬ 
zahl ist oder nicht (eine Primzahl läßt sich ohne Rest nur durch 
1 und sich selbst teilen. 2, 3 und sind sind Primzahlen, 4 ist keine 
denn sie ist ohne Rest durch 2 teilbar). 

PRIM läßt die zu prüfende Zahl, den Operanden, auf dem stack 
zurück. Davor steht noch eine andere Zahl, die den Wert 0 hat, 
wenn der Operand eine Primzahl war. 

: PRIM 

( Zahl - Zahl, 0 für Primzahl) 

2 

BEGfN 

( Zahl, Zahl durch die geteilt wird) 

OVER OVER DUP * < 0= 

WH ILE 

OVER OVER MOD 0= 

IF 

EXIT 

THEN 

14 

REPEAT 
DROP 0 

Bei BEGIN enthält der stack die Zahl selbst an zweiter Stelle und 
darüber einen Probier-Di visor, durch den sie geteilt wird. Der 
Divisor beginnt mit 2 und wird in jedem Durchlauf um 1 erhöht. 
Es genügt aber, diesen Vorgang nur bis zur Quadratwurzel der 
untersuchten Zahl fortzusetzen (Warum?) 


Auf diese Weise lauft das Programm ab, solange das Quadrat 
des Probier-Divisors noch kleiner ist als die Zahl selbst. Sind 
alle möglichen Divisoren ausprobiert worden und keiner hat die 
Bedingung erfüllt, entfernen wir den letzten und steifen die 0 in 

den stack, da wir jetzt wissen, daß die Zahl eine Primzahl ist. 

Läßt sich andererseits die Zahl teilen, verlassen wir das 

Programm direkt mit EXIT. Im stack bfeibt die Zahl und der 

letzte Divisor zurück. 

Entwerfen Sie ein Wort PRIM?, das nach der Prüfung im stack 
eine 1 (wahr) für eine gefundene Primzahl, und eine 0 (falsch) 
für eine dividierbare Zahl abstellt. (Hinweis: PRIM sollten Sie 
natürlich dafür verwenden). 

Hier haben Sie ein Wort PRIMES, das alle Primzahlen bis zu einem 

einzugebenden Grenzwert ermittelt und anzeigt. Es verwendet Ihr 
PRIM? 

: PRIMES 

( Grenzwert - ) 

1 

DO 

f prim? ;■ 

IF 

I . 

THEN 


LOOP 
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2. Eine Zahl potenzieren ("zur Potenz erheben”) bedeutet, sie mehrmals 
mit sich selbst zu multiplizieren. Wie oft das geschehen soll, wird 
durch die Potenz angegeben. 5oII beispielsweise eine Zahl zur 2.Po¬ 
tenz erhoben werden, heißt das, daß sie mit sich selbst zu multipli¬ 
zieren ist: 

6 zur 2. Potenz = 6 * 6 = 36 
6 zur 3. Potenz -6*6*6 = 216 

Normalerweise wird dieser Sachverhalt in der Form 

(j) 3 «- Exponent 
Basis 

geschrieben, eine weit verbreitete Schreibweise ist aber >auch 
6 t 3. 

Entwickeln Sie ein FORTH-Wort t , das eine Zahl potenziert 
{ Zahl,Potenz - Ergebnis). 

Was tut Ihr + , wenn die Potenz 1 oder 0 ist? Eine Zahl zur 1. Po¬ 
tenz ist die Zahl selbst, und es gibt gute mathematische Gründe 
zu sagen, daß eine Zahl zur Potenz 0 = 1 ist. Bringen Sie Ihr 
tdazu, alles genau zu tun, und vergleichen 5ie es dann mit unserem: 

: + 

{ Zahl, Potenz - Zahl zur Potenz erhoben) 

1 SWAP ?DUP 
IF 


DO 

OVER * 
LOOP 
THEN 

SWAP DROP 


Beachten Sie, wie mit ?DUP, IF und THEN die DO.. .LOOP-Sch fei fe 
übergangen[wird, wenn Sie sie nicht brauchen. 

3. Mit dem folgenden unwahrscheinlich nützlichen Wort können Sie Ihren 
Computer auf ewige Zeiten beschäftigen (es sei denn, Sie unterbre¬ 
chen ihn mit BREAK). 

Verwenden Sie dafür BEGIN und 0 UNTIL. 

: OED 

ER LAEUFT” 

BEGIN 

UND LAEUFT” 

0 


UNTIL 
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Der Jupiter ACE hat einen eingebauten Lautsprecher, mit dem Sie 
Ihre Wörter bei Bedarf durch Töne oder Geräusche untermalen können. 
Das Wort, das Sie dazu brauchen, ist BEEP. Es erwartet zwei Zahlen 
auf dem stack. D e oberste Zahl definiert die Länge des Tons in 
Millisekunden, die zweite bestimmt die Tonhöhe. (Technisch ausge- 
drückt handelt es sich dabei um die Dauer einer Schwingung in 
Einheiten von 8 ps). 

Sie werden es vermutlich vorziehen, die folgende Tabelle zu benutzen, 


die die 

Tonhöhen 

für 7 

Oklaven 

in Halbtonschri tten 

darstel 1 1 : 


C 

191 1 

956 

478 

239 

119 

60 

30 

B 

2025 

1012 

506 

253 

127 

63 

32 

B b A* 

2145 

1073 

536 

268 

134 

67 

34 

A 

2273 

1136 

568 

2B4 

142 

71 

36 

.b_# 

A G 

2406 

1204 ' 

602 

301 

150 

75 

38 

G 

2551 

1276 

638 

319 

159 

80 

40 

F*G b 

2703 

1351 

676 

338 

169 

84 

42 

F 

2863 

1432 

716 

358 

179 

89 

45 

E 

3034 

1517 

758 

379 

190 

95 

47 

E b D* 

3214 

1607 

804 

402 

201 

100 

50 

□ 

3405 

1703 

851 

426 

213 

106 

53 

C # D b 

3608 

1804 

902 

451 

225 

113 

56 

C 

3822 

1911 

956 

478 

239 

119 

60 


Als Faustregel läßt sich sagen: Je kleiner die Zahl, desto höher der 
Ton. 

Wollen Sie aber Musik machen, dann brauchen Sie ein wenig mehr Auf¬ 
wand. Verfolgen Sie das an dem Lied " Alle Vögel sind schon da". 

Für Jede Note müssen Tonhöhe und Dauer festgelegt werden. Statt 
mit Millisekunden zu arbeiten, ist es besser, die Dauer der kürzesten 
Note einmal als Variable zu definieren und alle anderen Tonlängen 
als Vielfache davon zu bestimmen. 

Die kürzeste Tondauer in unserem Lied ist eine Achtel-Note, Wir defi- 
nieren: 

200 VARIABLE ACHTEL 
: N 

( Tonhöhen-Zahf, Länge in Achteln) 

ACHTEL @ * BEEP 
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Das "kleine c" als Viertelnote mit Punkt (drei Achtel lang) ist jetzt 
al so 

478 3 N 

Der Name N wurde bewußt kurz gewählt, da er ja oft eingegeben wer¬ 
den muß. Durch die Verwendung von ACHTEL haben wir den zusätzlichen 
Vorteil, daß die ganze Melodie schneller oder langsamer gespielt werden 
kann, einfach indem wir den Wert von ACHTEL ändern. Der Wert 200 
für die Variable ACHTEL ist schon sehr (ang. 

In unserem Lied kommen mehrere Wiederholungen vor. Es besteht aus 
zwei gleichen Elementen 

Teil I 



L Al - 1c Vo . gd sind schon da, al - Ic Vo - gd al - Icr! 


wird definiert durch 
: TEiLl 

( alie Vögel sind sc fron da) 

478 6 N 379 2 N 319 4 N 

239 4 N 284 4 N 239 2 N 

284 2 N 319 8 N 358 6 N 

319 2 N 379 4 N 478 4 N 

426 8 N 478 8 N 



VL'dch ein Sin - gen- Mn - si - zier'n, PFei - fcn. it ‘ciu’rrl, Ti ■ n Iht'n 


wird definiert durch 
: TE IL2 

( Singer», Pfeifen ... ! 

319 4 N 319 4 N 358 4 N 
358 4 N 379 4 N 319 2 N 
379 2 N 426 8 N 


Stellen wir nun das ganze Lied zusammen 

: ALLE 

TEIL1 TEIL2 
TEIL2 TEIL! 


Zusammenfassung: 


FORTH-Wort BEEP 
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Übungen: 

1. Anstatt die Tonhöhe aus der Tabelle zu bestimmen, kann man sie 
auch in Beziehung zu einer Art 5 tandard-Note setzen und sie 
berechnen. Dazu muß man berücksichtigen, daß die Noten in einem 
logari thmischen Verhältnis zueinander stehen. 

Um also eine Note um eine Oktave zu erhöhen, muß die Tonhöhen- 
Zahl mit 1/2 multipliziert werden. 5ie können dies aus der 
Tabelle .deutlich erkennen. Für die Erhöhung um einen Halbton 
muß die Tonhöhe mit der zwölften Wurzel aus 1/2 mul itip I iziert 
werden {eine Oktave umfaßt 12 Halbtöne). Das ist die Zahl 
0.94387431 oder näherungsweise 17843/18904. 

Damit kommen wir zu einer Methode zur Berechnung von TonhÖhen- 
Zahlen aus entsprechenden Halbtönen: 

a) Beginnen Sie mit einer ziemlich tiefen Note mit bekannter Hohen 
zahl, z.B. 3822 für das tiefste C in der Tabelle 

b) Ermitteln Sie die Halbtöne in Form ganzer Oktaven plus "über- 
hängender 1 ' Halbtöne. (Die Note "G" mit der Höhenzahl 80 liegt 
zum Beispiel um 2 Oktaven und 7 Halbtöne über dem kleinen 

"c"). 

c) MuItipI izieren Sje die Basiszahl für jeden Halbton mit 17843/18904 
und dividieren Sie das Ergebnis für jede Oktave durch 2. 

Damit erhal len Sie die gewünschte Tonhöhen-Zahl. 

Im folgenden Wort SEMI ist diese Methode realisiert. Sie nimmt 
aus dem stack die Tonhöhe in Halbtönen über dem kleinen c, und 
stellt die Höhen-Zahl für BEEP zurück. 

: SEMI 

{ Halbtöne über kleinem c - Tonhöhe) 

36 + ( Halbtöne über dem tiefen C) 

12 /MOD SWAP . ( Zahl Oktaven, Zahl Halbtöne) 

3822 SWAP ?DUP 
IF 

( Multiplikation mit 17843/18904 f.jeden Halbton) 

0 

DO 

17843 18904 */ 

LOOP 

THEN 

SWAP ?DUP 
IF 

( Division durch 2 für jede Oktave) 

0 

DO 

2 / 

LOOP 

THEN 


Sie können nun SEMI mit BEEP testen. Wegen der vielen Rechenarbeit 
entsteht vor den höheren Noten innerhalb einer Oktave eine deutlich 
längere Pause als etwa vor C. fn Kapitel 20 werden wir eine Methode 
kennen lernen, wie wir Potenzen von 17843/18904 getrennt speichern kön¬ 
nen, so daß für die überhängenden Halbtöne nur eine Multiplikation 
und eine Division erforderlich wird. 
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2. Versuchen Sie BEEP mit kleinem Operanden. Der kleinste Tonhöhen¬ 
wert, der noch einen hörbaren Ton erzeugt, ist 7. Bei noch kleine¬ 
ren Werten spielt der Computer nicht mehr mit und erzeugt ein end¬ 
loses Knackgeräusch. 

Die kürzeste Motendauer, die Sie benutzen können, hängt von der 
Tonhöhe ab: Ist die Länge geringer als 1/125 des Höhenwerts, dann 
erzeugt der Computer einen Dauerton in richtiger Höhe. Bevor dieser 
Fall eintritt, müssen die Noten aber schon extrem kurz sein. 
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Bisher hatten wir es nur mit Buchstaben, Ziffern, Satz- und einigen 
Sonderzeichen zu tun, die auch der Computer kennt. Jedes von ihnen 
wird im ACE durch eine Zahl zwischen 0 und 255 dargestellt. Man 
nennt diese Zahl den ASCII Code eines Zeichens ( ASCII bedeutet 
"American Standard Code for Information Interchange", auf Deutsch: 
Amerikanischer Standardcode für Informationsaustausch), und der Com¬ 
puter erkennt alle Zeichen nur in Form ihrer Codes. 

Wollen Sie den ganzen Zei chenvorrat sehen, dann definieren Sie ein 
Wort 

: CHAR 

( zeigt den Zeichensatz an} 

256 0 

DO 

I EMIT 
LOOP 


EMIT nimmt einen ASCII Code aus dem stack und stellt das dazugehöri¬ 
ge Zeichen auf dem Bildschirm dar. Sie können sofort zwei Gruppen 
unterscheiden: die Zeichen mit den Codes 0 bis 128 sind weiß auf 
schwarz, und die mit 128 bis 255 sind schwarz auf weiß (die sogenann¬ 
te "Invers Video"-Darstellung) . Ansonsten sind sie gleich. 

Der Buchstabe A hat in weiß-auf-schwarz-Darstel lung den ASCII Code 
65, und In schwarz-auf-weiß-Darstel lung 65 + 128 = 193. 

Die Zeichen mit den ASCII Codes 32 bis 127 sind auf der ganzen Weit 
gleich (eben standardisiert); wobei es nur geringfügige Unterschiede 
bei Sonderzeichen gibt, die nicht in jedem Land verwendet werden (z.B. 
das Zeichen £ ) 

Die Zeichen mit Code 0 bis 31 sind nicht einheitlich festgelegt. In 
ASCII werden sie als Steuerzeichen eingesetzt, die zwar nicht angezeigt 
werden können, aber bestimmte Funktionen erfüllen. Der ACE benutzt 
beispielsweise ASCII 13 als "Rücklauf", die MARKE geht von einer Zeile 
zum linken Rand der Folgezeile. Alle übrigen werden als ‘Graphic-Zei- 
chen" verwendet, die Ihnen für spezielle Anwendungen zur Verfügung 
stehen. 

Die Zeichen sind Muster aus schwarzen und weißen Quadraten. Die Fla¬ 
che, in der ein normales Zeichen dargestellt werden kann, ist in 4 
kleinere Quadrate aufgeteilt: 

ffi 

Da jedes der kleineren Quadrate schwarz oder weiß sein kann, gibt 
es 2*2*2*2 = 16 Möglichkeiten, die im ACE mit den Codes 16 bis 23 
und 144 bis 151 festgelegt sind. 

Diese Zeichen können mit den Graphics Modus direkt über die Tastatur 
eingegeben werden. Durch Drücken der Tasten SHIFT und 9 (dort steht 
auch GRAPHICS) wird die MARKE in ® geändert und die Z ifferntasten 
erzeugen die auf ihnen dargestellten Symbole. Die anderen 8 Symbole 
erhalten Sie, nachdem Sie zusätzlich SHIFT und 4 (INVERSE VIDEO) 
gedrückt haben. 
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Zeichen 

Code 

Zeichen 

Code 

■ 

16 

□ 

144 

L 

17 

□ 

145 

a 

1B 

E 

146 

Q 

19 

B 

147 

r 

20 

□ 

148 

E 

21 

3 

149 

0 

22 

S 

150 

□ 

23 

9 

151 


Sie werden feststellen, daß auch die anderen Tasten Grafik-Zeichen 
erzeugen. Sie haben zwar das gleiche Muster, aber natürlich andere 
ASCII Codes. Es gibt vier Gruppen von Code-Nummern zur Darstellung 
der ersten acht nicht inversen Zeichen: 0 bis 7, 8 bis 15, 16 bis 23 

und 24 bis 31. Da Sie jedes Zeichen frei definieren können, verwenden 
Sie die Zeichen 0 bis 15 und 24 bis 31 für Ihre eigenen Kreationen, 

Sie können selbst errechnen, welche Taste welches Zeichen erzeugen 
kann : 

1. Stellen Sie den ASCII Code der Taste fest (s.Anhang A) 

2. Dividieren Sie den Code durch 32 

3. Der Rest Ist der Code des Zeichens, das dargestellt wird 

4. Sie kommen durch Addition von 128 in den I nverse-Video-Modus 

Der Buchstabe a hat den ASCII Code 97. 97 : 32 = 3, Rest 1. Also: 

Taste a hat das gleiche Grafik-Symbol wie ASCII Code 1, 

Merken Sie sich einfach, daß a oder A im Graphik-Modus die 1, b oder 
B die 2 ergibt usw. bis zu z oder Z = 26, 

Sie können Zeichen selbst definieren. Nehmen wir an, Sie woilen das 
Bild einer kleinen Lokomotive für irgendein Spiel zeichnen. Alle Zei¬ 
chen benutzen ein Raster von 8x8 Punkten (schauen Sie einmal genau 
auf den Bildschirm), also müssen Sie zuerst das Bild der Lok in diesem 
Raster entwerfen. 


X 

X 

i 

<x 

X 

X 

<& 

X 

X 


a 

A 
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J&des Krauz bedeutet einen weißen Punkt auf dem Bildschirm, eine Leer¬ 
stelle dagegen einen schwarzen Punkt. Jetzt ist festzulegen, welchen 
ASCII Code die Maschine haben soll. Nehmen wir 1, das entspricht 
dem A im Graphik-Modus. Jeder andere Code geht natürlich auch 
{aber Vorsicht bei Codes über 128, sie sind in invers). Es ist jedoch 
besser, die sonst nicht verwendeten Codes ASCII 0 bis 15 oder 24 bis 
31 zu nehmen . 

Definieren Sie folgendes Wort 
: GR 

8 * 11263 + DUP 
8 + 

DO 

I C! -1 
+LOOP 


GR erwartet 9 Zahlen im stack. Die oberste ist der ASCI i Code des 
Zeichens, das wir ändern wollen, z.B. 1, die übrigen Zahlen beschrei¬ 
ben die acht Punktreihen. Dabei ist die höchste Reihe ganz unten 
und die tiefste Reihe ganz oben im stack. Geben Sie jetzt bitte ein: 

2 BASE CI 

00000100 
1 1110010 
00010010 
00011111 
00100001 
00100001 
11111111 
01100110 

DEC IMAL 

(die genaue Bedeutung von BASE und DECIMAL wird in Kapitel 16 er¬ 
läutert. Wir haben die sogenannte Binärschreibweise benutzt). 

Wie Sie erkennen können, ist aus jedem x im Entwurf eine 1, und 

aus jeder Leerstelle eine 0 geworden. Jetzt müssen Sie nur noch 1 

(für den ASCII Code) und GR erngeben, und das Zeichen mit Code 1 
ist jetzt eine Lok. Gehen Sie mi; SHIFT 9 in den Graphik-Modus und 
drücken Sie A. Mit invers Video (SHIFT 4) und danach A erscheint 
sie schwarz auf weißem Hintergrund. Sie können das Maschinchen 

jetzt wie jedes andere Zeichen einsetzen, indem Sie es nach 
bringen oder mit 1 EMIT abrufen. Sie können es sogar als eigenes 

Wort benutzen, z.B. 

a 

* n Auf der schwäb 1 sehen Eisenbahn" 


Wie arbeitet nun GR? Stellen Sie sich eine Reihe mit 8 funkten vor. 
Jeder Punkt kann schwarz oder weiß sein, es gibt also 2 - 256 ver¬ 

schiedene Kombinationsmögl ichkeiteti in einer Reihe. Jede Reihe kann 
als ein Byte codiert werden. Insgesamt haben wir 8 solcher Reihen, 
brauchen also 8 Bytes, die wir im Speicher abtegen. 

Die Speicheradressen von 11264 bis 12287 werden für die Speicherung 
der ASCII Zeichencodes 0 bis 127 verwendet. Sie sind nach Code-Num¬ 
mern gespeichert» Die oberste Reihe hat die Adresse 11264+8* ASCII 
Code, und die achte Reihe Ist sieben Plätze weiter hinten. Das sieht 
dann so aus; 
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Adresse 

Reihe, die dort gespeichert i 

11264 

oberste Reihe für ASC 1 1 0 

1 1265 

2 . 

Reihe für ASC11 

0 

11266 

3. 

Reihe für ASC11 

0 

11267 

4. 

Reihe für ASC11 

0 

11268 

5. 

Rei he für ASC11 

0 

11269 

6 . 

Reihe für.ASC 1 1 

0 

11270 

7. 

Reihe für ASC 1 1 

0 

1 1271 

unterste Reihe für 

ASC 1 1 0 

11272 

oberste Reihe für ASCII 1 

11273 

2 . 

Reihe für ASC 1 1 

1 

11274 

3. 

Rei he für ASC 1 1 

1 


11279 unterste Reihe für ASCII 1 


Wolfen wir ein eigenes Zeichen für ASCH 1 entwickeln, müssen die 
entsprechenden Zahlen in die Speicherplätze 11272 bis 11279 gebracht 
werden. GR berechnet diese Adressen und belegt die Plätze von 11279 
an rückwärts. 

Dazu wird ein neues Wort C! benutzt. 

C! speichert nur ein Byte weg {Byte, Adresse - ) im Gegensatz zu !, 
das bekanntlich zwei benachbarte Adressen belegt. 

Ein entsprechendes Wort für das Lesen nur eines Speicherplatzes ist 
C@ . (Adresse - Byte). Es entspricht dem Zeichen 

FORTH hat für Behandlung von Zahlen immer zwei einander entspre¬ 
chende Wörter. Einige benutzen ganze Zahlen aus 2 Bytes (wie z.B. @ 
oder ! ), andere nur ein Byte {wie C@ oder Cf ). Da der ASCII Code 
eines Zeichens (=Character) ein Byte benutzt, beginnen diese Wörter 
meist mit C 

Beachten Sie bitte: Der Speicherbereich, der die Punkt-Muster enthält, 
kann nur beschrieben, aber nicht in den stack zurückgelesen werden. 
Nur die Anzeige auf dem Bildschirm ist möglich. 

Für die Verarbei tung von Zeichen gibt es ein besonderes Wort: 
ASCII. Es erspart Ihnen, jedesmal in die Tabelle zu schauen, wenn 
5ie den ASCII Code eines Zeichens wissen wollen. ASCII nimmt das 
erste Zeichenjdes unmittelbar folgenden Wortes und legt dessen ASCII 
Code im stack ab. 

ASC I 1 ANTON 

druckt z.B. 65 aus. ANTON ist kein definiertes Wort, aber das ist 
ASCII gleichgültig. Es nimmt einfach das nächste Zeichen nach einem 
Zwischenraum. Deshalb kann es übrigens auch den Zwischenraum selbst 
nicht umschlüsseln. 

Weitere Wörter für die Verarbeitung von Zeichen sind: 

SPACE, SPACES, CLS, AT und TYPE 
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SPACE ( -) gibt auf dem Bildschirm einen Zwischenraum aus 

SPACES ( n -) nimmt die oberste Zahl vom stack und erzeugt ebenso 
viele Zwischenräume, wenn die Zahl positiv ist 

CLS ( -) löscht den gesamten Bi fdsch irrninha11. Es löscht auch den 

Eingabebereich bis auf eine einzige Zeile. Wollen Sie CLS 
über die Eingabe benutzen, dürfen nicht zu viele Wörter da¬ 
nach folgen, weil sie sonst verlorengehen . 

AT ( Zeile,Spalte -} nimmt zwei Zahlen aus dem stack und verwendet 
sie als Koordinaten für die MARKE. Die zweite Zahl von oben 
definiert eine Zeile im Bildschirm (Zei lenzähfung von 0 bis 
22, 0 ist die oberste Zeile). Die oberste Zahl definiert eine 
Spalte (Spaltenzählung beginnt mit 0 am linken Rand und 
geht bis 31). AT definiert auf diese Weise Zeile und Spalte, 
in der die nächste Bildschirmanzeige beginnen soll. 

TYPE ( Adresse, Anzahl von Zeichen -) zeigt auf dem Bildschirm Zei¬ 
chen aus dem Speicher an. Es beginnt ber einer im stack 
abgelegten Adresse und zeigt die im nächsten Platz des stack 
angegebene Zahl von Zeichen an. 


Zusammen fassung: 

Zeichensatz und ASCII Codes 
Entwurf neuer Zeichen 

FORTH-Wörter: C!, C@, EM IT, ASCII, SPACE, SPACES, CLS, AT, TYPE 
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Ubu ngen: 

Definieren Sie ein Zeichen mit ASCII Code 2 als E isenbahnwaggon: 



und geben Sie die folgende Wortdefinition GO ein. Beim Eintasten müs¬ 
sen Sie zwei Zwischenräume vor dem Zug eingeben. 

: GO 

( Länge des Pfeiftons - Länge des Pfeiftons) 

BEG IN 

CLS 22 0 
DO 
32 0 

D j°, AT wm 

DUP 200 SWAP BEEP ( Pfiff) 

LOOP 

LOOP 

0 

ÜNTIL 


GO braucht eine Zahl im stack, die bestimmt, wie schnell der Zug. 
fährt . 


2. Definieren Sie ein Wort 

r CODEA 

ASCII abcde . 

Zeigen Sie das Wort mit LIST wieder an. Die Buchstaben bcde sind 
weggefallen, da sie keine Rofle spielen. 

Wir haben vorhin behauptet, daß ASCII ein Wort aus der Eingabe¬ 
zeile nimmt und den ASC./ I Code des ersten Zeichens in den stack stellt. 

Das geschieht aber nicht, wenn wir CODEA laufen lassen. Es nimmt 
vielmehr einen Wert von dem Wort, das während der Definition von 
CODEA In der Eingabezeile war. Es verhält sich innerhalb einer Wort¬ 
definition also anders als im Eingabebereich. Dieser Unterschied ist 
beabsichtigt. 


3. Entwerfen Sie Schachf Iguren, Spiel karten-Symbole oder was Ihnen 
sonst gerade einfällt. 
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4. Wenn Sie BASIC kennen, wissen Sie, was TAB ist. Im FORTH gibt 
es kein entsprechendes Wort, Es ist aber einfach zu definieren: 

: TAB 

( Tabstop -) 

15388 (? - 31 AND SPACES 

(wie das Wort funktioniert, ist im Augenblick noch nicht so 
wichtig für Sie). 

TAB nimmt eine Zahl aus dem stack und verwendet es aJs Spalten- 
Nummer zwischen 0 und 31 (ist die Zahl größer, wird sie durch 
32 dividiert und der Rest verwendet). TAB stellt dann soviel 
Zwischenraum bereit, daß die nächste anzuzeigende Zahl in die 
Spalte paßt (wenn nicht in der gleichen, dann in der folgenden 
Zei le) . 

Im folgenden Wort TABELLE wird dies mit einer 4-spaltIgen Tabelle 
gezeigt: 

: TABELLE 

( Zähler bis -) 

0 

DO 

I 8 -* TAB 
I . 

LOOP 

CR 


5. Experimentieren Sie mit TYPE. 

0 100 TYPE druckt wirres Zeug, weil die Bytes ab 0 keine sinnvollen 
Zeichen sind. Es sind vielmehr fest eingebaute Befehlscodes. 

J n teressanter ist das schon 8192 500 TYPE, weil 8192 der Anfang 
des Spei cherbere ichs für Bi Idschirmlnformatfonen ist. TYPE liest 
also vom Bildschirm und schreibt gleich wieder zurück. 

Sie können sich ein TYPE unter Verwendung von C@ 7 EMIT und DO 
Schleife selbst entwickeln. 

6. Zum Schluß ein kleines lustiges Spiel. Dazu müssen Sie zunächst 
einige Symbole mit GR definieren. Wir haben Ihnen die entsprechen¬ 
den Codes gleich In Dezimalschreibweise vorgegeben. 

Geben Sie zunächst die Definition von GR von Seite 67 ein, danach 
geben Sie ein: 


0 

1 0 

1 7 

J5 

| 15 

! 31 

| 18 

1 

50 


i 

1 GR 

0 

1 0 

1 0 

t 128 

i 128 

| 192 

| 64 

1 

96 

! 

2 

| GR 

63 

j 48 

| 112 

| 127 

| 127 

1 32 

I 16 

1 

8 

! 

3 

1 GR 

224 

| 96 

| 112 

|240 

[240 

| 32 

64 

1 

128 

1 

4 

1 GR 

63 

| 48 

1112 

|127 

(127 

1 16 

1 32 

1 

64 

1 

5 

| GR 

224 

1 96 

| 112 

1 240 

1240 

| 64 

| 32 

1 

16 

1 

6 

| GR 

0 

| 126 

1 2 

1 2 

1 62 

i 2 

| 126 

1 

0 

1 

7 

1 GR 


Damit haben wir ein kleines Monster definiert, das wir jetzt über 
den Bildschirm laufen und ein bißchen arbeiten lassen wollen. 
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Wir definieren zunächst das Wort für die Bewegung. Beachten Sie 
dabei aber bei den Symbolen in 11 die vorgesehenen 

Leerschritte, damit Ihr Männchen seine Arbeit einwandfrei verrich¬ 
ten kann. 


: GEH 

DUP DUP 2 MOD 
IF 

11 SWAP AT @AB® " 

12 SWAP AT ." gCD@ " 

100 

ELSE 

11 SWAP AT @ABS " 

12 SWAP AT @EF@ " 

200 

THEN 
100 BEEP 


( AB im @RAPH ICS-Modus) 
( CD im 0RAPH ICS-Modus) 


( AB im SRAPHICS) 
( EF im SRAPHICS) 


Im Listing können Sie das Männchen schon erkennen. Mit MOD 
wird entschieden, ob es die Beine spreizt oder zusammenklappt. 


FEHL 

CLS 10 1 AT ." Jupiter AC@G[§" ( G in Graphics) 
9 1000 BEEP 18 1 


DO 

I GEH ( Schleife 1) 
LOOP 

500 1 000 BEEP 8 17 


DO 

I GEH -1 ( Schleife 2) 

+LOOP 

10 GEH 29 11 
DO 

10 I AT ." @G[§ " .( G in Sraphics) ( Schleife 3} 
I GEH 600 200 BEEP 
LOOP 
10 28 

DO 

10 1 AT ." E " ( Schleife 4) 

I 1- GEH 
600 200 BEEP -1 
+LOOP 
29 11 


DO 

I GEH ( Schleife 5) 
LOOP 


Unser Männchen geht unter dem Schriftzug entlang (Schleife 1), 
stutzt, als es das falsche E erkennt und läuft zurück (Schleife 2). 
Es schleppt das falsche E weg (Schleife 3) und bringt das 
richtige (Schleife 4). Unter der Last geht es natürlich langsamer. 
Das erreichen wir mit dem längeren BEEP. Zum Schluß verläßt es 
(in Schleife 5) den Platz. 
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Mit den kleinen Quadraten aus Kapitel 12 können Sie den Bildschirm 
mit beliebigen Mustern aus schwarzen und weißen Kästchen verzieren. 
Es ist nur eine etwas mühselige Arbeit. Einfacher geht das Zeichnen 
dagegen mit dem Wort PLOT, mit dem Sie einen Punkt an eine beliebige 
Stelle im Bildschirm setzen können. 

Jede dieser Guadrat-Posi t ionen nennt man ein Pixel (engl,: picture 
element). Der Bildschirm hat 64 Pixels in der Breite und 48 in der 
Höhe. Sie können in der Höhe aber nur* 46 Pixels benutzen» da die 
unterste Zeile als Eingabezeile reserviert bleibt. 

Um ein Pixel zu definieren, brauchen Sie zwei Zahlen, seine Koordi¬ 
naten. Die erste ist die X-Koordinate von links nach rechts. Ganz links 
steht das Pixel mit der Koordinate 0, ganz rechts das mit der Koordi¬ 
nate 63. 

Die zweite Zahl, die Y-Koordinate , verläuft von unten nach oben. Das 
unterste Pixel hat 0, das oberste 45, 

Im folgenden Diagramm ist das Koordinatensystem noch einmal dar¬ 
gestellt (s. Seite "~72 ■ 

Sind die Koordinaten festgelegt, müssen Sie dem ACE noch sagen, was 
mit dem Pixel geschehen soll. Sie haben dafür vier Möglichkeiten (man 


sagt dazu "Piotting Modus”): 

Pixel auf schwarz setzen (unplot) = 0 
Pixel auf weiß setzen (plot) = 1 

Pixel nicht verändern (move) = 2 

Pixel in Gegenfarbe andern (Change) = 3 


Die Zahlen nach dem Gleichheitszeichen definieren den entsprechenden 
Code. 

PLOT braucht also 3 Zahlen im stack (X-Koordinate, Y-Koordinate, Plot- 
ting Modus - }. 

Geben Sie ein 

30 20 ) PLOT 

und Sie erhalten ein kleines weißes Quadrat etwa in der Mitte des 
Bi Idschirms. 

Jetzt können Sie fleißig üben und Punkte anzeigen lassen. Eines wird 
Sie aber stören: Immer wenn der ACE einen Befehl ausgeführt hat, 
schreibt er noch einmal an, was er getan hat und setzt OK dahinter. 
Das könnte Ihr Kunstwerk etwas beeinträchtigen. Deshalb gibt es ein 
Wort, mit dem mar diese Meldungen unterdrücken kann. Es heißt INVI5 
(invisible = unsichtbar). Umgekehrt werden die Meldungen wieder sicht¬ 
bar, wenn Sie VIS verwenden. 

Geben Sie ein 

INVIS CLS 

und malen Sie jetzt nach Herzenslust, 

Zusammenfassung: 

Pixels, X- und Y-Koordinaten 
FORTH-Wörter PLOT, INVJ5, VIS 
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Übu ngen: 

1. Mit einem Wort DRAW (^zeichnen) können Sie recht gut gerade 
Linien zeichnen. Es hat drei Operanden 

( x, y, Plotting Modus - ) 

Der Anfangspunkt der Linie ist das letzte mit PLOT oder DRAW aus¬ 
gegebene Pixel, und der Endpunkt liegt x- Pixels darüber und y- 
Pixels rechts davon, x und y haben also eine gewisse Ähnlichkeit 
mit den x- und y-Koordi naten eines Pixels in PLOT, werden jedoch 
vom Anfangspunkt der Linie aus gerechnet und nicht von der unte¬ 
ren linken Ecke aus. Sie können also auch negativ sein, wie z.B. 
in der Wortfolge 

30 5 1 PLOT 

10 10 1 DRAW 

-10 10 1 DRAW 

-10 -10 1 DRAW 
10 -10 1 DRAW 
die ein Quadrat zeichnet 


Die Zahlenfolge 1 . . .5 gibt 
des Quadrats gezeichnet werden. 

Leider gibt es DRAW nicht fertig im Wörterbuch. Wir müssen es 
aus einigen untergeordneten Wörtern definieren: 

: 5GN 

0> DUP + 1- 


: DRAW1 

ROT ROT OVER SGN OVER SGN 
4 ROLL ABS 4 ROLL ABS 
OVER OVER < 

ROT ROT 3 PICK 

IF 

SWAP 

THEN 


: Dl AG 

6 PICK 6 PICK 


: GERADE 
4 PICK 
IF 

0 6 PICK 
ELSE 

6 PICK 0 
THEN 


: SCHRITT 

15408 C@ + SWAP 
15407 C@ + SWAP 
9 PICK PLOT 


• 3 



5 - 1 

an, in welcher Reihenfolge die Seiten 


Fortsetzung Folgeseite 
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Fortsetzung WörterdefInition von Vorseite: 


: DRAW 

DRAW1 2 PICK DUP 2 / 
SWAP ?DUP 
!F 

0 

DO 

OVER + DUP 4 PICK > 
IF 

3 PICK - DIAG 
ELSE 
GERADE 
THEN 
SCHRITT 
LOOP 
THEN 
7 0 
DO 

DROP 

LOOP 


Hierzu gibt es einiges zu erklären: 

Zunächst soll m den größeren und n den kleineren der Werte |x| bezw. 

| y | darstellen. jx| und |y| sind die Absolutwerte von x und y, d.h. 
also Werte ohne Vorzeichen. 

Wir bauen die Linie auf, indem wir zwei Arten von Schritten ver¬ 
wenden: Einen Diagonalschritt, der ein Pixel sowohl nach x als auch 
nach y verschiebt; und einen geraden Schritt, der nur in eine Richtung 
nämlich vertikal oder horizontal verläuft. Wenn wir so gleichmäßig 
wie möglich n D iagonal sehr i tte und m-n gerade Schri tte ausführen, 
dann bewegen wir uns um m Pixels in die eine und um n Pixels in 
die andere Richtung, also genau das, was wir wollen. 

DRAWI erarbeitet diese beiden Arten von Schritten. Es ersetzt x, y 
und den Plotting Modus durch die folgenden sechs Zahlen irn stack 

(von oben nach unten): 

- n, die kleinere Zahl aus |x| und | y f - 

- m, die größere Zahl aus [x| und |y|. 

- einen MERKER, der anzeigt, welche der beiden Zahlen die größere 

war: 0, wenn |x| größer war und ein gerader Schritt horizontal 
geht. 1, wenn |y| größer war und ein Verti kal schri 11 folgt. (Wenn 
|x| = lylj gibt es keinen geraden Schritt und der MERKER ist 

ohne Bedeutung), 

- die y-Richtung eines Diagonal schri ttes { 1 oder -1 ) 

- die x-Richtung eines Diagonalschrittes ( I oder -1 ) 

- den Plotting Modus. 

DIAG kopiert die beiden Richtungsangaben eines Diagonalschrittes an 
den TOS (sie sind 1 oder -1); GERADE kopiert die Richtungsangaben 

eines geraden Schrittes an den TOS ( eine ist 0, die andere 1 oder 

-1 >- 

SCHRITT nimmt die beiden Angaben zu einem Schritt, so wie sie von 
DIAG oder GERADE zurückgel assen wurden, und zeichnet mit ihnen 
den nächsten Punkt der Linie. SCHRITT muß dazu wissen, wo der 
vorhergehende Punkt gelegen hat und benutzt dazu zwei Sy stemv ar i a - 
ble , die jede ein Byte lang sind, aus den Adressen 15407 und 15408". 
{PLOT legt nämlich die beiden Koordinaten dort ab: x steht in 15407, 
y I n 1540 &). 



70 


70 


DRAW mischt jetzt die n Diagonal schri tte mit den m-n geraden Schritten» 
Diese stehen in einem bestimmten Verhältnis zueinander, nämlich (n) 

: (m-n). Das Z ah lenverhäl tnis wird in der DO_LOOP-Schleife simuliert. 

Im stack steht eine eigene Zahl zwischen 1 und m. In jedem Durchgang 
wird n hinzuaddiert, ist die Summe größer als m geworden, folgt ein 
Diagonalschritt und m wird wieder subtrahiert. Andernfalls folgt ein 
gerader Schritt. 


2. Experimentieren Sie mit DRAW, indem Sie die verschiedenen Plotting 
Modes einsetzen. Hierbei sehen Sie eine Anwendungsmöglichkeit für 
den Modus 2: Er stellt den PLOT-Status her, ohne die Pixels zu 
beei nf lussen . 

Der Pfotting Modus 3 ist nützlicher, als Sie vielleicht annehmen, 
denn dank seiner besonderen Eigenschaft erhalten Sie durch zweimali¬ 
ges Einsetzen von PLOT oder DRAW wieder den ursprüngI ichen Zustand. 

Nehmen Sie z.B. (nach INVIS, CLS) 

0 24 1 PLOT 63 0 1 DRAW 
32 0 i PLOT 0 45 1 DRAW 

Wollen Sie jetzt die zweite Linie wieder löschen, können Sie dies mit 
32 0 0 PLOT 0 45 0 DRAW 

tun. Es hinterläßt aber in der ersten Linie eine Lücke. Wiederholen 
Sie den Versuch durchgehend mit Modus 3. Sie haben dann eine Lücke 
im Kreuzungspunkt beider Linien, nach dem Löschen ist sie jedoch wie¬ 
der geschlossen. 


3. Zeichnen Sie auf den leeren Bildschirm 
0 0 3 PLOT 63 20 3 DRAW 
und dann versuchen Sie mit 
-63 -20 3 DRAW 

die Linie wieder zu löschen. Es geht nicht, denn die vorhandenen 
Unregelmäßigkeiten führen die zweite Linie einen anderen Weg. 

Um eine Linie wirklich zu treffen, müssen Sie die zweite Linie in 
gleieher Richtung verlaufen lassen. 


4. Ein sehr nützliches Hilfsmittel für viele Anwendungen ist ein Zufalls 
generator, ein Wort, das eine zufällige Zahl erzeugt, wie etwTä das 
Roulette. Für einen Computer ist es garnicht so leicht, ZufaI Iszahlen 
zu erzeugen, da er ja festen, vorhersehbaren Befehlen folgt. Einfacher 
ist es, Pseudozufa11szahleh zu erzeugen, Zahlen also, die einer Gesetz¬ 
mäßigkeit unterliegen, die - obwohl fixiert - hinreichend komplex 
ist, um zufällig zu erscheinen. Hier ein Beispiel: 

0 VARIABLE SEED 
: SEEDON 

( - nächster Wert von SEED) 

5EED @ 75 (J* 75 0 D+ 

OVER OVER U< - - 
7- DUP SEED ' 


Fortsetzung Folgeseite 
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: RND 

( n - Pseudozufai Iszahl zwischen 0 und n-1 ) 
SEEDON U* SWAP DROP 

: RAND 

( Wert für SEED - ) 

?DUP 0= 

IF 

15403 @ SWAP 
THEN 
SEED ! 


Kümmern Sie sich (noch) nicht darum, wie das funktioniert, nehmen 

Sie diese Programme einfach als fertige Rezepte. 

SEEDON nimmt bei jedem Durchlauf den alten Wert von SEED, um 

einen neuen zu erzeugen, den es wieder in den stack zurücklegt. 
Wenn Sie SEEDON 65536mal benutzen, ist es wieder beim Anfangswert 
angelangt und der Zyklus beginnt von Neuem. 

RND hat einen Operanden und benutzt SEEDON dazu, eine Zufallszahl 

zu erzeugen, die kleiner ist als dieser Operand. 6 RND erzeugt ein 

Ergebnis zwischen 0 und 5, und 6 RND 1+ ein Resultat zwischen 1 

und 6, kann also als "elektronischer Würfel" benutzt werden. 

RAND startet SEED mit dem TOS, so daß Sie immer wissen, mit 

welcher Zahl die Zufallsfolge beginnt. Das kann für die Fehlersuche 
sehr nützlich sein, weil Sie immer wieder die gleichen Zahlen für 

einen Programmtest erhalten. Eine Besonderheit von RAND ist, daß Sie 
m i t 

0 RAND als Ausgangsgröße eine Sy stemvariable erzeugen können, die 
aussagt, wieviele Fernsehbi I der seit dem Einschalten des Computers 
abgelaufen sind (50 je Sekunde). Damit erhalten Sie ei nen noch 

besseren Zufallswert. 

5. Tippen Sie das folgende Programm mit 
1 MUSTER oder 3 MUSTER ein: 

: MUSTER 

( Plotting Modus - Plotting Modes) 

CLS 
8 EG IN 

64 RND 46 RND 
3 PICK PLOT 0 
UNTIL 



Pixel x - Koordinaten 


Spalten 


Al und PLOT geht nicht 
j r in der untersten Zeile 




Pixel y 


Koordinaten 


Als Beispiel: das ist 
das Pixel (57,32) 
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KAPITEL m 

PROGRAMME AUF BAND SPEICHERN 

Wenn Sie den ACE abschalten, vergißt er alles, was Sie ihm eingegeben 
haben. Wollen Sie also das Ergebnis Ihrer Arbeit retten, müssen Sie 
die Programme auf Kassetten sichern. 

Sie benötigen dazu einen normalen Kassettenrecorder, den Sie an 
den ACE anschließen, wie im Kapitef 3 beschrieben. 

Es ist von Vorteil, kurze Kassetten zu benutzen, Sie müssen dann 
nicht so lange suchen, wenn Sie ein gespeichertes Programm wieder 
lesen wollen. 

Tippen Sie jetzt ein Wort ein, das Sie sichern wollen, z.B, 

: EINBILDUNG 

CR ." Sie sind bei weitem 1 ’ 

CR ." das intelligenteste Wesen,” 

CR das je einen Jupiter ACE” 

CR benutzt hat!” 

Dann geben Sie ein 

SAVE HONIG 

drücken Sie aber noch nicht ENTER. 

SAVE erledigt die Speicherung, und HONIG ist der Name, der das Pro¬ 
gramm auf dem Band identifiziert. Sie müssen nicht extra sagen, daß 
Sie EINBILDUNG speichern wollen, denn SAVE speichert alle Worte, die 
zur Zeit im ACE sind und von Ihnen eingegeben wurden. HONIG ist 
kein FORTH-Wort, es ist lediglich eine Erkennungsmarke, die sie ge- 
wäh 11 haben. 

Spulen Sie die Kassette jetzt so weit vor, daß das Magnetband unter 
dem Schreib-Lesekopf steht. Falls Sie schon Informationen gespeichert 
haben, müssen Sie natürlich bis an deren Ende vorsputen. Starten 
Sie jetzt den recorder mit "Aufnahme” und drücken Sie ENTER. Nach 
etwa 5 Sekunden hören Sie zwei kurze Geräusche aus dem Lautsprecher 
und auf dem Bildschirm wird OK angezeigt. Damit ist die Aufzeichnung 
für den Computer abgeschlossen. 

5ie sollten sich aber grundsätzlich davon überzeugen, daß die 
Daten auf der Kassette angekommen sind: Das können Sie mit dem 
Wort VERIFY( =bestätigen, prüfen) tun. 

Spulen Sie dazu das Band zurück bis kurz vor die Stelle, wo Sie 
mit der Sicherung begonnen haben, regeln Sie die Höhen (soweit auf 
Ihrem Recorder vorhanden) herunter und die Lautstärke auf etwa 3/4. 

Dann geben Sie ein: 

VERIFY HONIG 

und starten das Band. Sobald das Band Ihre gespeicherten Daten er¬ 
reicht, kommt eine Nachricht auf dem Bildschirm: "Dict: HONIG” und 
nach ca. 3 Sekunden OK. In diesem Fall ist alles gut gegangen. 
Wenn nicht, können Sie den Versuch mit der SPACE-Taste abbrechen. 

Was ist zu tun, wern die Übertragung mißlingt? 

1. Sehen Sie im Kapitel 3 nach und führen Sie alle dort angegebenen 
Prüfungen durch 
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2. Hören Sie sich die Aufzeichnung über den Lautsprecher des Recorders 
an. Dazu müssen Sie den Kopfhörer-Stecker herausziehen. Zuerst 
müßte etwa 5 Sekunden lang ein hohes Pfeifen zu hören sein, danach 
weniger als eine Sekunde lang ein lauter Ton, dann wieder, aber 
nur kurz das Pfeifen, und schließlich noch einmal der laute Ton. 

All dies müßte unerfreulich laut sein, wen Sie die Lautstärke 
des Recorders voll aufdrehen. Hören Sie dagegen nichts, dann ist 
auch nichts angekommen. Unter Umständen passen die Stecker nicht 
richtig zum Recorder. Ziehen Sie sie einige Millimeter heraus und 
wagen Sie einen neuen Versuch. 

Waren die Töne gut zu vernehmen, dann versuchen Sie VERIFY 
bei voller Lautstärke. Bei zu schwacher Lautstärke kann der Compu¬ 
ter die Signale nicht einwandfrei empfangen; ist es zu laut, werden 
sie leicht übersteuert. Machen Sie deshalb mehrere Versuche mit 
verschiedenen Lautstärke-Einstel Iungen, bis Sie die richtige für 
Ihren Recorder gefunden haben. 

Wenn überhaupt nichts geht, haben Sie einen schlechten Tag er¬ 
wischt (oder ein schlechtes Sand). Bauen Sie Ihre Agression an 
einem Ihrer Familienmitglieder ab und gehen Sie ins Bett. Ver¬ 
suchen Sie es am nächsten Tag mit einem neuen Band, reinigen 
Sie die Köpfe oder leihen Sie sich ein anderes Gerät. 

Nach den Informationen in Kapitel 3 können Sie Ihr Wörterbuch 
wieder in den Computer laden. Ein Wörterbuch, das vom Band in 
den Computer gelesen wird, wird an das Ende eines bereits vorhan¬ 
denen Wörterbuchs angehängt. Sie können also kleine Gruppen von 
Wörtern getrennt sichern und nur die zurückholen, die Sie jeweils 
brauchen. Wollen Sie zuviel auf einmal laden, erhalten Sie ERROR 
10. Im Anhang B erfahren Sie mehr über diese Fehlermeldung. 

SAVE, VERIFY und LOAD werden für Wörterbücher auf Band verwen¬ 
det. Sie können auch Informationen speichern, indem Sie festlegen, 

wieviele Bytes Sie sichern wollen, und bei welcher Adresse Sie be¬ 
ginnen. In diesem Fall verwenden Sie BSAVE, BVERIFY und BLOAD. 

Soll zum Beispiel der Bi Idschirminhalt gespeichert werden, dann 
geben Sie ein 

8192 768 BSAVE BILD 

Der Bildschirm hat 768 Bytes, beginnend mit Adresse 8192. 

BILD ist wiederum nur ein Name, der die Daten auf dem Band iden¬ 
tifiziert. BSAVE ist genauso zu bedienen wie SAVE. 

In diesem speziellen Beispiel ist es nicht unbedingt sinnvoll, 

sofort BVERIFY durchzuführen. Durch den Vorgang wird nämlich 
der Bildschirm selbst verändert. Mit 

8192 768 BLOAD BILD 

dagegen erhalten Sie wieder das ursprüngliche Bild. 

Noch einfacher ist es, wenn Sie BILD immer wieder an die gleiche 
Stelle laden wollen, zu sagen 

0 0 BLOAD BILD 

Sie müssen dabei folgende Regeln beachten: 

- die erste Zahl (die BLOAD an zweiter Stelle im stack findet), 
ist die Speicherad resse, bei der Sie das Laden anfangen wollen. 

Es muß ja nicht immer die gleiche sein, ist sie es aber, dann 

genügt auch 0 als Eingabe. 
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- Die zweite Zahl (die BLOAD am TOS findet) ist als reine Vor¬ 
sichtsmaßnahme gedacht. Sollten Sie nicht mehr wissen, wieviele 
Bytes gespeichert wurden, kann es gefährlich sein, sie unbese¬ 
hen wieder zu rückzuhol en, weil Ihnen plötzlich Speicherplatz 
überschr ieben wird, den Sie noch brauchen. Mit der zweiten 
Zahl wissen Sie dann aber wenigstens, wieviel Speicherplätze 
maximal zerstört wurden. 

Geben Sse statt der Zahl eine Null ein, dann wird die ursprüng¬ 
liche Zahl von Bytes übernommen.. 

Beide Regeln gelten für BVERIFY und BLOAD. 

Wörterbuch-Daten und Bytes-Daten sind durchaus etwas Unter¬ 
schiedliches. ACE sagt Ihnen, womit er gerade zu tun hat, indem 
er "Dict:" oder "BytesJ 1 vor den Datennamen setzt. Mit LOAD kön¬ 
nen Sie keine Bytes-Daten, mit BLOAD keine Wörter-Daten laden. 

Zusammenfassu ng: 

Band-Daten: Wörterbuch-Daten und Byte-Daten 
FORTH-Wörter: SAVE, VERIFY, LOAD, BSAVE, BVERIFY, BLOAD 

Übungen: 

1. Nachdem Sie den Byte-Datensatz BILD (von Adresse 8192 aus) gesich¬ 
ert haben, geben Sie ein: 

9216 0 BLOAD BILD 

um es an die Adresse 9216 zu r ückzu I aden. Es wird Ihren Bildschirm 
mehr oder weniger verändern. 

Was heißt das? Wo ist der Bildschirminhalt wirklich gespeichert, 
in 8192 oder in 9216? Die Antwort heißt: In beiden. Diese Adressen 
sind gewissermaßen Vorder-und Hrntereingang des Bi tdschirmbereiches 

Der Vordereingang hat die Adressen 8192 bis 9215. Wenn Sie diese 
ansprechen, werden Sie sofort vom Computer bedient, auch wenn 
er vorübergehend den Bildschirm außer Acht lassen muß (Sie 
sehen kurzzeitig weiße Punkte). Da das Band nicht angehalten 
werden kann, verwendet man diese Adressen beim Sichern oder 
Laden des Bildes (obwohl es langsam genug läuft, um in der 
Praxis keine Probleme zu verursachen). 

Der H i n terei ngang hat die Adressen 9216 bis 10239. Sie werden nicht 
immer sofort bedient, wenn der Computer gerade mit dem Bildschirm 
beschäftigt ist. Andererseits erhalten Sie bei Benutzung dieser 
Adressen keine störenden weißen Punkte. 

Einen ähnlichen Aufbau hat der Speicher für den Zeichensatz. Die 
Hauptadressen sind 10240 bis 11263, die Nebenadressen (die wir im 
Kapitel 12 benutzt haben) sind 11264 bis 12287. 


2. Es ist natürlich zweckmäßig, einen mit viel Mühe selbst erzeugten 
Zeichensatz für die spätere Verwendung auf Kassette zu speichern. 
Unglückl icherweise gibt es aber keinen Direktzugriff auf den Zei¬ 
chensatz (s.Kap. 12). Sie können das Problem aber lösen, indem 
Sie den Zeichensatz an eine andere Stelle im Speicher verlagern 
(z.B. in den B11 dschirmbererch) und von hier aus sichern. Das 
spätere Zu- rückladen in den Zeichensatz ist möglich. 



76 


76 


3. Noch ein hübsches Spielchen. Geben Sie Ihr Lieblingswort ein 
(EINBILDUNG) und tasten Sie danach in einem Vorgang ein 

8896 32 BSAVE BILDUNG LOAD HONIG EINBILDUNG 

Schalten Sie den Recorder ein und drücken Sie ENTER. Dadurch si¬ 
chern Sie einen Datenbestand BILDUNG. 8896 ist die Adresse des 
Eingabebereichsj wenn dieser zwei Zeilen lang ist. 

Sie haben jetzt BILDUNG gesichert und der Computer sucht nach 
einer WÖrterbuch-Datei HONIG. Unterbechen Sie mit SPACE und sichern 
Sie das Wörterbuch mit 

SAVE HONIG 

Jetzt haben Sie eine Byte-Dater BILDUNG, die eine Zeile des 
Eingabebereichs umfaßt und aussagt "LOAD HONIG EI NB I LDUNG r *, 
gefolgt von einer Wörterbuch-Datei HONIG. Laden Sie BILDUNG mit 

8928 0 BLOAD BILDUNG 

(Beachten Sie, daß sich die Adresse geändert hat, weil der 
Eingabebereich nur noch eine Zeile umfaßt). 

Der Computer ladt jetzt BILDUNG in den Eingabebereich, lädt danach 
das Wörterbuch HONIG und führt EINBILDUNG aus. 
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Bisher haben wir nur mit ganzen Zahlen (engl.: integer s) gearbeitet 
und in manchen Versionen der FORTH-Programm iersprache dürfen andere 
Versionen auch gar nicht verwendet werden. Es ist ja auch erstaunlich, 
wieviel man mit ganzen Zahlen anfangen kann. Aber ACE läßt zusätz¬ 
lich auch Dezimalbrüche zu, weil es bequemer ist. Solche Zahlen heißen 
Glei t kommazahlen . 

Hier ein Beispiel: 

2.1 2.1 F+ F. 

Als "Komma" muß immer der Punkt verwendet werden. Um Sie daran 
zu erinnern, werden wir im Folgenden vom Dezimalpunkt sprechen (ob¬ 
wohl die Zahlen irr deutschen Sprachgebrauch "Gleit komma zahlen heißen) 

Die wichtigste Regel ist: Sie müssen dem Computer immer sagen, 
daß er es mit Dez ima J zahl en zu tun hat, und nicht mit ganzen 
Zahlen. Deshalb weerden anstatt + und . die Wörter F+ und F. 
verwendet (das "F" kommt vom englischen Float ing-poi nt - Gleit¬ 
komma ). 

Versuchen Sie im Vergleich dazu 

2.1 2.1 + . 

das "Ergebnis" 16673 ist Unsinn. 

Es gibt natürlich auch Dezima I-Versionen für *, / und NEGATE, 

alle durch F am Anfang gekennzeichnet: F-, F*, F/ und FNEGATE. 

Im übrigen werden sie behandelt wie bereits bekannte FORTH-Wörter. 

Ai le Dezimalzahlen im ACE FORTH müssen mit Dezimalpunkten geschrieben 
werden. Das gilt auch für ganze Zahlen, die in Dez imal-Ari thmetik 
verarbeitet werden sollen. Wollen Sie zum Beispiel 11 : 4 mit dem rieh- 
tigen Ergebnis 2,75 rechnen, müssen Sie dies mit dem Wort F/ tun. 
Dazu brauchen aber auch beide Zahlen einen Dezimalpunkt 

11. 4. F/ F. 

Es gibt eine weitere Schreibweise für Gleitkomma-Zahlen , die sogenannte 
Exponential sch reib weise . Dabei folgen unmittelbar auf die Zahl (natür- 
I ich mit Dezirnaipunkt) ein E und eine ganze Zahl . Diese ganze Zahl 
ist der Exponent zur Basis 10 und bedeutet, daß die Gleitkommazahl 
so oft mit 10 zu muitipl izieren ist, wie der Exponent angibt. 

2.1E0 = 2.1 
2.1E1 = 2.1*10 - 21 
2.1E2 - 2.1*10*10 = 210 
2.1E3 = 2.1*10*10*10 = 2100 

Ist der Exponent negativ, wird die Zahl durch 10 dividiert 

2.1E-1 = 2.1/10 = 0.21 
2.1E-2 = 2.1/10/10 = 0.021 
2.1E-3 = 2.1/10/10/10 = 0.0021 

Der Exponent bewirkt eine Verschiebung des Dezimalpunkts um entspre¬ 
chend viele Steifen. 

In Verbindung mit Gleitkommazahlen gibt es noch zwei andere Wörter: 

INT wandelt eine Gleitkommazahl in eine ganze Zahl um, indem es 
die Ziffern nach dem Dezimalpunkt wegläßt 

ergibt 12 
ergibt -12 


12.99 INT . 
-12,99 INT . 
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UFLOAT wandelt ganze Zahlen in Gleitkommazahlen um: 

12 UFLOAT F. 

ergibt 12. 

Negative Zahlen werden mit einem besonderen Kniff umgewandelt. Der 
Computer addiert 65536 dazu und wandelt dann in Gleitkomma um (wo¬ 
zu das gut ist, sehen Sie in Kapitel 17). Es gibt also durch die Um¬ 
wandlung nie negative Zahlen. Dadurch erklärt sich auch das "U" in 
UFLOAT, es bedeutet im Englischen eine Abkürzung für " un signed = 
ohne Vorzeichen). 

Bitte beachten Sie: 

Die Größe von Gleitkommazahlen im Computer ist begrenzt. Positive Zah¬ 
len müssen zwischen 1 .0E-64 und 9.99999E62 liegen. Falls Sie diesen 
Bereich verlassen, können Rechenergebnisse noch vernünftig aussehen, 
geben aber weiterhin falsche Resultate. 

Negative Zahlen müssen zwischen -9.99999E62 und -0.1E-64 liegen. 

INT gibt richtige Ergebnisse nur im normalen Bereich der ganzen Zah¬ 
len, also zwischen -32768 und 32767. 

Bei der Behandlung von Gleitkommazahlen müssen Sie daran denken, 
daß jede Gleitkommazahl den Platz von zwei ganzen Zahlen braucht. 
Es ist daher empfehlenswert, sich Wörter für die Gleitkommadarstellung 
zu definieren: 

: 2DR0P 

( Gl ei tkommazah I - ) 

DROP DROP 


: 2DUP 

{ Gleitkommazahl - GK'zahl, GK'zahl) 
OVER OVER 

: 2SWAP 

( GK1 , GK2, - GK2, GK1 ) 

4 ROLL 4 ROLL 


: 20VER 

( GK1 , GK2 - GK1 , GK2, GK1 ) 
4 PICK 4 PICK 


: 2R0T 

( GK1 , GK2, GK3 - GK2, GK3, GK1 ) 
6 ROLL 6 ROLL 


: 2 <? 

( Adresse - GK) 
DUP @ SWAP 2+ @ 

: 2 ! 

( GK - Adresse) 
ROT OVER ! 2+ ! 


Zusammenfassung: 

Gl ei tkommazah len 

FORTH-Wörter: F+, F-, F*. F/, FNEGATE, INT, UFLOAT 
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Übungen; 

1- Definieren Sie Gfei tkomma-Versionen 2 ROLL und 2PICK von ROLL 
und PICK. 

2. Welche von diesen Beispielen sind richtig? 

2 3 F/ F. 

2 7.6 F+ F. 

2. 2.5 F* # 

2. 3. . 

(Antwort: keines, korrigieren Sie!) 

3. Uber die Gleitkomma-Arithmetik ist schon viel geschrieben worden. 
Nachstehend geben wir zwei Beispiele. 

Quadratwurzel: Das Quadrat einer Zahl ist die Zahl mit sich 

selbst multipliziert, die Wurzel einer Zahl ist der umgekehrte 

Vorgang. Sie wollen eine Zahl ermitteln, deren Quadrat eine 

gegebene Zahl ist. Zum Beispiel ist 16 das Quadrat von 4; 4 ist 

die Quadrat wurzel aus 16. Im allgemeinen kann man Quadrat wurzeln 
nicht genau berechnen, weil es unendliche Dezimalzahlen sind. Die 
Quadratwurzel von 2 ist ungefähr 1.4142t. 

Das Wort QWURZEL errechnet die Quadratwurzel einer Gleitkommazahl 
: QWURZEL 

( Gleitkommazahl - Wurzel) 

1.10 0 

DO 

20VER 20VER F/ F+ 

.5 F* 

LOOP 

2SWAP 2DROP 

Hier ist eine Methode verwendet, die schon im Altertum der 
Grieche Heron benutzt hat. 

Man beginnt mit einer Konstanten und verbessert diesen Wert in 
jedem DO ... LOOP-Durchgang. 

Was geschieht, wenn Sie -2. QWURZEL rechnen? -2 kann keine 
Wurzel haben, weil jedes Quadrat positiv wird. Trotzdem wird -2. 
QWURZEL ein - wenn auch unsinniges - Resultat geben. 

4. Das folgende Wort berechnet den Sinus eines Winkels, der im Bogen¬ 
maß angegeben wird. Es hat eine Genauigkeit von 3 Stellen für 
Winkel um 2pi und 5 Stellen für Winkel um pi oder weniger. Es ad¬ 
diert die Elemente der Potenzreihe 



: SIN 

( x - Sinus von x) 

2DUP 2DUP 2DUP F* FNEGATE 
2ROT 2R0T ( -x*x, x, x) 

27 2 
DO 

( -x^x, bisher aufgelaufene Summe in der Potenzreihe) 

6 PICK 6 PICK ( Kopie von -x*x an den TOS) 

F* I I 1+ * 

UFLOAT F/ ( —x * x, Summe nächstes Glied) 

Fortsetzung Folgeseite 
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2DUP 3?0T F+ 2SWAP ( -x s x, nächste Summe, n.Glied) 

2 

+LOOP 

2DROP 2SWAP 2DR0P 


Es folgen noch die Wörter für Cosinus und Tangens 
: COS 

{ X - COS X ) 

1.57080 2SWAP F- ( pi/2-x) 

SIN 


: TAN 

{ x — tan x) 
2DUP SIN 
2SWAP COS F/ 
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Bisher haben wir nur mit Zahlen aus dem stack gearbeitet. Die 
Operanden waren vor dem auszuführenden Wort einzugeben. Es gibt 
aber auchjMethoden, mit denen man während eines Programmablaufs 
Daten eintasten kann, oder bei denen man Daten verwendet, die erst 
nach dem Wort eingegeben werden. 

Das einfachste Wort ist INKEY. Es fragt lediglich die Tastatur ab. 
Wenn Sie eine Taste betätigen (es werden auch die SHIFTS berücksich¬ 
tigt), legt INKEY deren ASCII-Code auf dem stack ab, andernfalls 
kommt eine 0 auf den stack. 

INKEY kann auf verschiedene Weise eingesetzt werden, in einem schnel¬ 
len Sp ielprogramm z.B. werden häufig mit den Tasten 5,6,7 und 8 
(Pfeile) Figuren auf dem Bildschirm bewegt. Andere Programme sollen 
in der Ausführung einfach warten, bis der Benutzer eine Taste betä¬ 
tigt. Ein Wort hierfür ist WARTE, 

: WARTE 
( - ) 

BEGIN 

INKEY 

UNTIL 

> 

Oder Sie wollen eine Taste drücken und deren ASCII-Code im stack 
beha I ten 

: TASTE 

( - ASCII-Code) 

BEGIN 

INKEY ?DUP 
UNTIL 


Ein kompl izierteres Wort fragt "(J/N)" und fordert den Benutzer auf, 
"J" oder "N" e!nzugeben. Für J legt es eine I, für N eine 0 auf dem 
stack ab. 

: J/N 

( - 0 oder 1 ) 

(J/N)?" 

BEGIN 

INKEY DUP ASCII j = 

IF 

2 

ELSE 

ASCII n = 

THEN 

?DUP 

UNTIL 

1 - 


INKEY liest direkt aus der Tastatur, es kann daher immer nur ein 
Zeichen erkennen. Andere Wörter arbeiten mit dem ganzen Eingabebe¬ 
reich, so daß auch ganze Wörter eingegeben werden und verarbeitet 
werden können. 

Es folgen zunächst zwei Wörter, die das Programm anhalten. Sie können 
dann in der gewohnten Weise beliebige Daten eingeben. Nach Drücken 
der ENTER-Taste fährt das Programm fort. 
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QUERY löscht zunächst den Eingabebereich, danach können Sie eingeben. 

RETYPE läßt den Eingabebereich unverändert, Sie können dessen Inhalt 
ausgeben. Die MARKE ist anfangs B, sie weist damit auf die Änderungs- 
mögfichkeit hin. 

Keines dieser beiden Wörter beeinflußt den stack. 

Die nächsten Wörter befassen sich mit dem E ingabebereich, wenn Sie 
etwas eingegeben haben: 

Das einfachste Wort ist LINE. Es Interpret iert den E ingabebereich als 
Zahlen und FORTH-Wörter wie üblich. Es zeigt ebenfalls ein fj für ein 
nicht erkanntes Wort an, arbeitet also genau im üblichen Modus, mit 
dem Zeilen behandelt werden. Es können also z.B. auch Programme 
aufgerufen werden. Ist die Eingabe jedoch bearbeitet, fährt LINE mit 
Ihrem Programm fort. Sern Einfluß auf den stack richtet sich völlig 
nach dem Inhalt des Eingabebereichs. 

Das Wort EINGABE stellt eine sehr einfache Methode dar, ein Programm 
anzuhalten, um eine 2ahl eingeben zu können. {Wenn Sie BASIC kennen, 
werden Sie so etwas wahrscheinlich schon vermißt haben). 

: EINGABE 
( - ?) 

QUERY LINE 


EINGABE ist äußerst flexibel, denn Sie können eine Zahl, die Sie ein¬ 
geben wollen, erst durch eine Rechnung im Computer erzeugen lassen. 
Nehmen Sie an, Sie benötigen das Produkt 32 * 23 für eine Eingabe, 
haben aber keine Lust, es vorher auszurechnen. Tasten Sie einfach 

32 23 * 
und EINGABE. 

Der Bediener muß aber andererseits sehr gut aufpassen, denn mit die¬ 
sem Wort kann er leicht mehr als eine Zahl in den stack bringen und 
dadurch das Programm In der Folge zu falscher Verarbeltung veranlas¬ 
sen . 

Wir lassen nun eine modifizierte Version von EINGABE folgen, die zwar 
nicht völlig narrensicher ist, aber doch mehr Sicherheit bietet. Sie 
bringt die Zahl -32768 auf den stack und prüft hinterher, ob sie noch 
vorhanden ist. 

: EINGABE 

( - ?) 

-32768 QUERY INVIS LINE VIS SWAP -32768 - 
IF 

JET2T HABEN SIE ABER" 

CR NICHT AUFGEPASST" 

QU IT 
THEN 

> 

Wir haben die Wörter INVIS und VIS hier eingesetzt, weil LINE üb¬ 
licherweise den Eingabebereich in den oberen Bereich des Bildschirms 
kopiert (auch wenn es nicht OK sagt). In einem Programm könnte das 
unter Umständen störend sein. 

Beachten Sie das Wort QUIT, das im FehlerfaJI angewandt wird. QUIT 
verläßt das gesamte Programm, also nicht nur EINGABE, sondern alle 
zur Zeit gerade ausgeführten Wörter. Es versetzt den Computer in den 
normalen Eingabezustand zurück. Beachten Sie auch, daß QUERY LINE 
in EINGABE den Eingabestatus nur imitiert, QUIT aber in den echten 
Eingabezustand zurückführt. 
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QUIT löscht den stack nicht. Dafür gibt es ein Wort ABORT, das wie 
QUIT wirkt, jedoch auch den Inhalt des stack beseitigt. 

Sie können den Eingabebereich besser unter Kontrolle halten, wenn 
Sie ihn Wort für Wort analysieren. Dafür stehen Ihnen NUMBER, FIND 
und WORD zur Verfügung. Jedes sucht nach einem bestimmten Begriff, 
nimmt ihn vom Anfang des Bereichs weg und kopiert ihn (trotz des 
eingeschal teten INVIS} in den oberen B i idsch i rmtei I. 

NUMBER sucht eine Zahl (Ganz— oder Gleitkommazahl) am Bereichsan¬ 
fang. Steht dort keine Zahl, legt es einfach eine 0 auf den stack. 
Wird eine Zahl gefunden, erfolgt die Anzeige auf dem Bildschirm, die 
Zahl wird auf dem stack abgelegt, und darüber ( am TOS) noch durch 
ein Kennzeichen ergänzt, welches aussagt, ob es sich um eine ganze 
Zahl (Kennzeichen 4102) oder eine Gleitkommazahl (Kennzeichen 4181) 
handel t. 

Mit dem folgenden Wort INTEGER kann man eine ganze Zahl aus dem 
Eingabebereich holen. Ist keine vorhanden, wird mit RETYPE erneut 
eine EingabemögJ ichkei t geboten: 

: INTEGER 

( - Ganzzahl) 

BEGIN 

RETYPE NUMBER DUP 4181 = 

IF 

( Gleitkommazahl) 

." UNGUELTIG" 

DROP DROP DROP 0 
THEN 
UNTIL 

I 

Das Wort FIND kann Wörter identifizieren, die im Wörterbuch gespei- 
chert sind. Jede Wortdefinition braucht einen gewissen Platz im Speicher 
und hat eine Adresse (der technische Begriff dafür ist Umwandiungs- 
Adresse , engl. Compilation Adress). Ein definiertes Wort am Anfang 
des Eingabebereichs wird nach oben kopiert und seine Umwandlungs¬ 
adresse im stack abgelegt. Mit 

FIND DUP . 

erhalten Sie die Anzeige der Um wand I ungsadresse von DUP. 

Die Wortfolge FIND DUP . arbeitet folgendermaßen : 

1. ACE sucht nach einem auszuführenden Wort und findet zunächst FIND 
Er kopiert es nach oben. Zu diesem Zeitpunkt steht im Eingabebe¬ 
reich noch 

DUP . 

2. Jetzt wird FIND ausgeführt. Es sucht wiederum nach einem Wo^t, 
dessen Umwandlungsadresse es auf den stack legen kann. Es 
findet DUP, kopiert es nach oben, und im Eingabebereich bleibt 
nur noch 

zurück. 

3. Nach FIND führt ACE das nächste Wort . aus. Er kopiert . (der 
Eingabebereich ist jetzt leer), führt es aus, indem er die Adresse 
von DUP anzeigt. 

4. Danach gibt es nichts mehr zu tun. ACE zeigt OK an, und wartet 
auf neue Eingaben. 
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Ein Wort , das die UmwandIungsadresse verwendet, ist EXECUTE (Adresse 
- ). Es nimmt die Adresse vom stack und führt das zugehörige Wort 
aus. Denken Sie daran, daß sich durch REDEFINE Um Wandlungsadressen 
andern können. 

Mit dem Wort WORD können Sie auch "sinnlose” Wörter behandeln, die 
weder Zahlen noch Definitionen sind. Da Leersteilen (SPACES) nie Teil 
eines Wortes sind, sondern im Gegenteil zur Trennung von Wörtern be¬ 
nutzt werden, kann WORD das erste Wort im E rngabebererch feststellen. 
Außer auf den Bildschirm wird das Wort noch In einen Arbeltsbereich 
im Speicher kopiert. Dieser Bereich heißt "Auffül J bereich" (Pad). Er 
wird zunächst mit Leerstellen (SPACES) aufgefüllt. Er belegt 254 
Bytes im RAM und beginnt bei Adresse 9985. Seine Aufgabe ist es, 
die Verarbeitung von Texten zu ermöglichen. Mit dem Wort PAD kann 
die Anfangsadresse 9985 auf den stack gelegt werden. 

Was tut WORD ? 

Erstens wird der Auffül I bereich mit Leerstellen gefüllt. 

Zweitens nimmt es einen Operanden vom stack, der die Wortbegrenzung 
(=delimiter) darstellt, Jedes Zeichen kann als Wortbegrenzer verwendet 
werden. Dazu ist nur sein ASC I I-Code vor Ausführung von WORD auf 
dem stack abzulegen. Für Leerstellen ist der Code 32, andere Codes 
definieren Sie bitte mit ASCII. 

Drittens sucht WORD einen Text am Anfang des Eingabebereichs. Begren- 
zer vor dem Text werden übergangen. Der Text wird bis zum 
nächsten Begrenzer oder zum Bereichsende gelesen. 

Viertens überträgt es den Text einschließlich Begrenzer in den Auffüll¬ 
bereich (Pad) ab Adresse 9986. Die Wortlänge (ohne Begrenzer) wird 
ins erste Byte des Pad eingetragen (Adresse 9985). 

Fünftens legt es die Adresse 9985 auf den stack. 

Geben Sie z.B. ein 

32 WORD axolotl . 

Ein solches Wort wurde nie definiert. Das ist aber gleichgültig. Der 
, druckt 9985 aus, die Zahl vom stack. 

Im Auffül Ibereich sind die ersten Bytes 

Adresse 


9985 

1 7 | 

Länge von 

"axolotl" 

9986 

97 

ASC 1 I-Code 

für 

a 

9987 

| 120 | 

ASC11-Code 

für 

X 

9988 

| 71 1 | 

ASC 1 1-Code 

für 

o 

9989 

1 108 | 

ASC 1 J-Code 

für 

1 

9990 

1 Hl 

ASC1I-Code 

für 

o 

999 t 

| 116 | 

ASC11-Code 

für 

t 

9992 

1 108 | 

ASC 1 1-Code 

für 

1 

9993 

1 32 | 

1 1 

ASC 1 1-Code 

für 

space 


Mit C@ . können Sie selbst nachsehen, mit 
9986 7 TYPE 

das ganze Wort "axolotl" anzeigen. 
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Von einem gespeicherten Text müssen wir Adresse und Lange kennen. 
Diese Information kann man mit folgenden Schritten erhalten: 

1. Wenn WORD den Text in den Auffül I bereich überträgt, stellt es des¬ 
sen Länge voran und legt die Adresse im stack ab. 

2. )n vielen FORTH-Versionen gibt es ein Wort COUNT, mit dem man 
aus den Informationen aus Punkt 1 die für TYPE (Pkt.3) notwendigen 
Daten ermitteln kann ( Adresse - Adresse + 1, Länge). 

Wir definieren es selbst 

: COUNT 

DUP t+ SWAP C@ 

3. TYPE nimmt Adresse und Länge vom stack und zeigt den stack an. 

Es folgt ein Beispiel, das WORD und COUNT benutzt. Es übernimmt 
eine eingegebene Nachricht und schiebt sie über den Bildschirm, 

: NACHRICHT 

( - ) 

ASCII * WORD CLS 
BEGIN 
32 0 
DO 

10 I AT SPACE DUP 

COUNT TYPE ( schiebt die Nachricht um eine Stelle 
nach rechts) 

11 0 AT 32 SPACES { löscht die Teile, die in die 

Folgezeile geschoben werden) 

1500 0 
DO 

LOOP 

LOOP 

0 

UNT I L 


Wir haben ^ als Begrenzer gewählt, damit die Nachricht Leerstellen 
enthalten kann, z.B. 

NACHRICHT Hallo Nachbarn! 'v 

Wenn das Zeichen 'v fehlt, werden die Leerstellen am Ende des 
Eingabebereichs als Teil der Nachricht behandelt. 

Noch einmal zur Erinnerung: Ob der Eingabebereich Informationen aus 
Ihrer letzten Eingabe enthält (wie bei Nachricht), oder ob das Pro¬ 
gramm anhält, damit Sie Daten eingeben können (wie in INTEGER): 

LINE, NUMBER, FIND und WORD arbeiten immer in der gleichen Weise. 

Zusammenfassung: 

Auffül ISpeicher (Pad) und Eingabebereich . 

FORTH-WÖrter INKEY, QUERY, RETYPE, LINE, QUIT, ABORT, NUMBER, 
FIND, EXECUTE, WORD, PAD 

Übungen: 

1. Viele FORTH-Dialekte enthalten ein Wort -TRAILJNG ( Adresse, 
Länge mit Leerstellen - Adresse, Länge ohne Leerstellen). -TRAI- 
LING beginnt mit Adresse und Länge eines beliebigen Textes (wie 
er von COUNT erzeugt wird) und verändert seine Länge, indem es 
alle Leerstellen am Anfang des Textes entfernt. 

Schreiben Sie eine Definition für -TRAILING. Stellen Sie aber sicher, 
daß es auch dann richtig arbeitet, wenn der Text nur aus Leerstel¬ 
len besteht. 
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2. Definieren Sie ein Wort 

: PCT 

PAD COUNT TYPE 

> 

Sie können PCT einsetzen, um festzustellen, was am Anfang des 
PAD steht. Untersuchen Sie, was die folgenden Wörter mit dem Pad 
anstellen: ASCII, SAVE, LOAD, : . Sie afle wirken auf den Pad, 

so daß ein Text dort nicht immer sicher ist. Auch . benutzt den 
Pad, aber am anderen Ende. 

3. Wenn der Computer gerade einmal leer ist, dann definieren Sie 

: EWIG 
BEGIN 
QUERY 0 
UNTIL 

Das Wort ist nur sehr schwer zu unterbrechen, denn mit ENTER 
kommen Sie aus QUERY heraus, müssen aber BREAK drücken, bevor 
QUERY wieder angesprochen wird. Versuchen Sie es, indem Sie 
SHIFT festhal ten und ENTER und SPACE fast gleichzeitig drücken. 
Noch besser ist es allerdings, ein solches Wort garnicht erst zu 
def in ieren. 
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KAPITEL 17 

ZAHLENSYSTEME 


Wir sind es gewohnt, im Zehnersystem zu rechnen und zu zählen. 

Dazu stehen uns zehn Ziffern (0 bis 9) zur Verfügung. Es ist 

anzunehmen, daß Menschen deshalb im Zehner- oder Dezimalsystem 
arbeiten, weil sie zehn Finger haben. 

Der Computer hat keine Finger. Er kann aber zwei Zustände unter¬ 
scheiden: Ein Schalter ist entweder ein- oder ausgeschaltet, eine 

elektr i schejSpannung ist vorhanden oder nicht vorhanden. Diese beiden 
Zustände können wir mit Ziffern definieren: "Schalter ein' 1 bedeutet 
1, "Schalter aus" bedeutet 0. Vielleicht leben auf einem fernen 

Planeten Lebewesen, die an jeder Hand 8 Finger haben. Die würden 
dann folgerichtig mit einem Sechzehnersystem arbeiten. 

In der Tat kann man mit jedem beliebigen Zahlensystem rechnen. 
Man braucht dazu nur soviel verschiedene Ziffernzeichen, wie das 
System angibt 

- im Zweiersystem sind das die Ziffern 0 und 1, 

- Im Zehnersystem die Ziffern 0 bis 9, und 

- im Sechzehnersystem 0 bis 9 und noch sechs weitere Zeichen, die 
wir der Einfachheit halber mit den Buchstaben A bis F definieren 
wol I en . 

Hat man nun 'bis zur letzten Ziffer gezählt, dann stellt man einfach 
eine Stelle voran und zählt weiter. 

Die folgende Tabelle soll veranschaulichen, wie die Zahlen in den 
verschiedenen Systemen dargestellt werden können. 


Zahl 

| Dezimalsystem | 

Dualsystem (Hexadezimalsystem 

Null 

i 

0 1 

0 i 

0 | 

Eins 

i 

1 | 

i 

1 | 

Zwei 

i 

2 1 

10 | 

2 1 

Drei 

i 

3 1 

1 < 1 

3 

Vier 

i 

4 [ 

100 | 

4 ! 

Fünf 

i 

5 1 

101 | 

5 

Sechs 

i 

6 

110 | 

6 1 

Sieben 

i 

7 1 

Hl 1 

7 1 

Acht 

i 

8 1 

1000 | 

B 

Neun 

i 

9 1 

1001 

9 1 

Zehn 

i 

10 1 

1010 | 

A 1 

Elf 

i 

11 1 

101 1 | 

B 

Zwöl f 

i 

12 | 

1100 | 

c 1 

Dreizehn 

i 

13 

1101 

D 

Vierzehn 

i 

14 | 

1110 | 

E | 

F ünfzehn 

i 

15 

1111 

F | 

Sechzehn 

i 

16 | 

10000 

10 | 
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Mit dem Computer können Sie jedes beliebige Zahlensystem darstellen. 
Geben Sie z.B. ein: 

2 BASE C! 

und schon können Sie 10 und 10 zu 100 addieren 

10 10 + . 

BASE ist eine Variable, die der Computer bereithält, also eine System¬ 
variable. Anders als eine normale Variable hat sie jedoch nur 1 Byte 
und anstelle von @ und ! müssen Sie C@ und CJ benutzen, um sie an¬ 
sprechen zu können. Ihr Wert ist die Zahlenbasis (das Zahlensystem), 
die Sie gerade benutzen, Haben Sie also mit BASE die Basis auf 2 ge¬ 
setzt, müssen Sie Ihre Zahlen auch in der B i n är-Schrei b wei se eingeben . 
Genauso antwortet dann auch der Computer. (Bei Gleitkomma-Zahlen 
ist es etwas anders, sie haben immer die Basis 10). 

Um zur menschlichen Schreibweise zurückzufinden, müssen Sie 
1010 BASE C! 

eingeben, denn 1010 ist im Zweiersystem, das ja noch aktiv ist, die 
10 des Dezimalsystems. Das gleiche können Sie mit dem Wort DEC 1 MAL 
erreichen, es setzt die Basis auf 10. 

Unser gewohntes Zahlensystem ist das Dezimalsystem , das System mit 
der Basis zwei heißt Dual- oder Binärsystem , das System auf der Basis 
16 heißt Hex adez imal System oder einfach Hex, 

Der Jupiter ACE ist für verschiedene Zahlensysteme entwickelt, je nach¬ 
dem, wie die Basis definiert wird. Ein dreizehiges Faultier würde viel¬ 
leicht die Basis 3, und ein einarmiger Seeräuber die Basis 5 wählen. 

Wie stellen wir nun fest, welchen Wert eine Binärzah! darstellt? In 
der Dezimalschreibweise bedeuten die verschiedenen Stellen Zehnerpoten¬ 
zen 

-Hunderter 

I --Zehner 

1 i i-Einer 

2 5 5 


255 bedeutet also: 2 Hunderter + 5 Zehner + 5 Einer. 

Das gleiche Prinzip wird auch im Binärsystem angewendet. Die Spalten 

sind natürlich Zweierpotenzen 

-E in hundert achtundzwanz i g 

* -Vierundsechzi g 

i i -Zweiunddreißig 

i -Sechzehn 

-Acht 

i i r 1 

i : ! j i- v ' er .. 

[ | j J | I ]- Ztwrei 

j ! ! i ! ! i i-Eins 


1 1 1 1 I I 1 1 
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Im Binärsystem bedeutet 11111111: 
Dez ima I | Binär 


128 

64 

32 

16 

8 

4 

2 

1 

255 


I ein * einhundertachtundzwanzig 

|+ ein * vt©nuinridfe©chzig 

|+ ein * zweiiunddr^tHlg 

|+ ein * sechzehn 

|+ ein * acht 

|+ ein * vier 

|+ ein * zwei 

|+ ein * eins 

1= zweihundertfünfundfünfz ig 


Schneller können Sie rechnen, wenn Sie in Gedanken 1 addieren, 
damit erhalten Sie die Binärzahl 1 0000 0000. Die 1 gehört in die 

Spalte "Z weihundertsechsundf ünfz iger", 1111 1111 ist also 1 weniger 

= 255. 

Der Computer arbeitet, wie wir jetzt wissen, mit dem Binärsystem. Des¬ 
halb sind uns bisher auch so häufig Zweierpotenzen begegnet. 

Ein Byte z.B. ist eine Zahl, die mit 8 Bits dargestellt werden kann: 

Die kleinste Zahl ist Null = 0000 0000 
die größte Zahl ist 255 = 11 11 1111 

Eine ganze Zahl wird im ACE durch zwei Bytes dargestellt. Die 
größte in diesem Fall darstellbare Zahl besteht also aus 16 Bits und 
heißt 1111 1111 1111 1111 (oder 65535 in unserer Schreibweise) . Das 
ist auch die größtmögliche Speicheradresse im System. 

Nun müssen wir aber positive und negative Zahlen darste! len können. 
Im ACE wird das so gelöst: 

- Der Za h I enberei ch von 0 bis 32767 wird in unveränderter Form ge¬ 
speichert , 

- der Zah ienbereich von 32768 bis 65535 rep r äsen t iert die neqativen 
Zahlen von -32768 bis -1, 

Wenn Sie zu einer negativen Zahl 65536 addieren, erhalten Sie die im 
ACE gespeicherte entsprechende Zahl. 

Bei spiel: 

Sie geben ein -19 

ACE addiert 65536 


und speichert 65517 

Diese Speichermethode heißt Z weier-Komp lernen t- Methode. Sie bedeutet 
eigentlich, daß wir zwei verschiedene Zahlenbereiche behandeln können 

- entweder Zahlen mit Vorzeichen von -32768 bis 32767, 

- oder Zahlen ohne Vorzeichen von 0 bis 65535. 

Wie wir die Zahlen definieren, hängt von den Umständen ab. 

Es gibt ein Wort U. mit dem man eine Zahl als Zahl ohne Vorzeichen 
ausdrucken kann. Unsere Zahl -19 wurde von . als -19 wieder ausge¬ 
geben, auch wenn Im Speicher 65517 steht. Mit U. dagegen wird sie 
in ihrer gespeicherten Form als 65517 angezeigt. 
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Ein anderes Wort, das mit Zahlen ohne Vorzeichen arbeitet, ist U< 
(Zahl,Zahl - MERKER). Es entspricht dem Wort < . Geben Sie ein 

1 -1 < . 

1 -1 U< . 

U< behandelt die -1 als 65535, das ja größer als 1 ist. 

Zum Schluß noch ein einfaches Verfahren, mit dem man Binär- in Hex- 
Zahlen umwandeln kann: Teilen Sie eine gegebene Binärzahl, von rechts 
beginnend, in V ierergruppen ein und ersetzen 5ie dann die Gruppen 
nach der folgenden Tabelle durch die zugeordnete Ziffer oder den ent¬ 
sprechenden Buchstaben. 


Bi t-Gruppen 

ersetzt durch 

0000 


0 

0001 


1 

0010 


2 

0011 


3 

0100 


4 

0101 


5 

0110 


6 

01 1 1 


7 

1000 


8 

1001 


9 

1010 


A 

1011 


B 

1100 


C 

1 101 


D 

11 10 


E 

1111 


F 

ahl hundert 

z.B. 

wi rd 

B inär 01 10 

0100 


Hex 6 

4 

also Hex 64. 


Zusammenfassung: 

Zahlensysteme: Dezimal, Hexadezimal, Binär 
Zahlen mit und ohne Vorzeichen 
FORTH-Wörter: ÖASE, DECIMAL, U. U< 

Übun gen: 

1. Warum ist das Binärsystem für die Definition neuer graphischer Zei¬ 
chen sehr nützlich? 

2. Versuchen Sie 

BASE C@ . 

Andern Sie die Zahlenbasis und versuchen Sie es nochmal . Warum 
bleibt die Basis immer 10, gleichgültig wie oft Sie sie ändern? 

Schreiben Sie ein Wort . BASIS, das die Zahlenbasis in Dezimalform 
druckt. Stellen Sie sicher, daß die Zahlenbasis nach . BASIS 
wieder gleich ist wie vorher. 
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3.Wählen Sie die Zahlenbasis 36. Sie können jetzt alle Ziffern und 
Buchstaben als Ziffern benutzen. Jedes Undefinierte Wort aus 3 Zei¬ 
chen wird jetzt als Zahl gespeichert, und Sie können es wie Zahlen 
verarbeiten, z.B. 

EIN AUS . . 


4.Eine Zahl wird negativ dargestellt, indem man sie von 65536 subtra¬ 
hiert. Im Binärsystem geht das sehr einfach: Subtrahieren Sie von 
65535 (das sind lauter Einsen) und addieren Sie 1. Es kommen nur 
zwei Fälle vor: 1-1=0 und 1 - 0 = 1 . 


5.Wenn Sie Hex öfter benutzen wollen, definieren Sie 
: HEX 

16 BASE C! 


6.Errechnen Sie 2 (1024). Da diese Zahl dicht bei 1000 liegt, nennt 

man sie auch Kilo (imGegensatz zum "k" in km oder kg steht hier 
"K n ). Man spricht in der Datenverarbeitung von einem Kilo-Byte, 
das sind dann eben nicht 1000, sondern 1024 Bytes. 
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Wir haben in Kapitel 9 gesehen, wie IF Zahlen als Be dingungen inter¬ 
pretiert, die entweder "wahr" (nicht Null) oder ''falsch" (Null) sind. 

Mit den Wörtern AND, OR und XOR können wir Bedingungen kombinieren, 
wir müssen nur sicherste! len, daß es sich um wirkliche MERKER (näm¬ 
lich 0 oder 1) handelt. Diese Wörter heißen auch Boolesche Operatio ¬ 
nen nach dem Mathematiker George Boole. 

Nehmen Sie an, Sie hätten in einem Wort zwei Bedingungen und 

wollen nur dann etwas tun, wenn beide wahr sind, d.b. wenn die 

erste Bedingung wahr ist und die zweite Bedingung wahr ist- Dafür 
benutzen Sie das Wort AND (=und). Eine Zahl im TOS liegt zwischen 

10 und 20, wenn sie großer als 9 und kleiner als 21 ist. Zunächst 

bringen wir die Aussage aus beiden Bedingungen in den TOS durch 

DUP 9 > SWAP 21 < 

Jetzt sind im stack zwei MERKER. AND ersetzt sie durch 1, wenn sie 
bei de 1 sind. Andernfalls stellt AND eine 0 in den TOS. Nach AND kön¬ 
nen Sie IF verwenden und wie gewohnt wer terarbeiten. 

Wir können diesen Sachverhalt in einer Tabelle darstellen: 

TOS 2. v.oben Ergebnis 

0 0 ♦ 0 

0 1 * 0 

10 - 0 

1 1 1 


OR (=oder) wird verwendet, wenn entweder die erste ode r die zweite 
Bedingung wahr ist, oder wenn beide wahr sind. Die Umgangssprache 

verwendet das Wort "oder" in etwas anderer Bedeutung, nämfich im 
Sinne etwa von Geldstrafe oder Haft, Bei einer solchen umgangssprach¬ 
lichen "oder"-Verbi ndung würden Sie sicherlich erwarten dürfen, daß 

Ihnen nur eines von beiden droht, nämlich Geldstrafe oder Haft. 

Die Tabelle für OR hat folgende Form: 

TOS 2,v.oben Ergebnis 

0 0 - 0 

0 1 1 

1 0 1 

1 1 1 

Das dritte Wort ist XOR (es bedeutet "Exclusiv oder"). Es wirkt wie 

OR, das Ergebnis ist jedoch "falsch", wenn beide Bedingungen wahr 
sind. Das heißt in anderen Worten: Ein "wahres" Ergebnis erhalt 

man nur dann, wenn nur ein Operand "wahr" ist, nicht aber beide, 
XOR entspricht also unserer Bedeutung in der Umgangssprache wesent¬ 
lich besser. 

Die Tabelle für XOR hat folgende Form: 


TOS 

2.v.oben 


Ergebnis 

0 

0 

* 

0 

0 

1 


1 

1 

0 

- 

1 

1 

1 

- 

0 
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AND, OR und KOR arbeiten nur richtig, wenn sie im stack 0 bezw. 1 
vorfinden. Was geschieht, wenn dort andere Zahlen stehen? 

Nehmen wir an, im stack stünden die Zahlen 108 und 18, die beide 
ungleich 0, also im bisherigen Sinne "wahr“ sind. Das Ergebnis von 
AND müßte dann auch "wahr" sein, 

AND bearbeitet die Zahlen Bit für Bit: 

0000 0000 0110 1100 ( 108 ) 

AND 0000 0000 0001 0010 ( 18) 

0000 0000 0000 0000 

Dieses Ergebnis bedeutet aber "falsch"! 

Die bitweise Verarbeitung von Zahlen mit AND,OR oder XOR können 
wir dazu benutzen, Zahlen auf eine besondere Weise miteinander zu 
kombinieren. 

Werden z.B. die Zahlen 106 (Binär 110 1010) und 201 (Binär 1100 

1001) durch AND miteinander verknüpft, entsteht daraus 

0000 0000 0110 1010 

AND 0000 0000 1100 1001 

0000 0000 0100 1000 

das ist die Zahl 72. 

Genauso sieht es bei OR und XOR aus. 

Hier ist ein 'typisches Beispiel, in dem AND auf recht unterschiedliche 
Weise verwendet wird. Wir definieren ein Wort BUCHST, das einen ASCII 
Code daraufhin untersucht, ob er einen Buchstaben darstellt, und für 
"wahr" eine 1, für "falsch" eine 0 im TOS ablegt. 

Die ASCII Codes der Großbuchstaben liegen zwischen 65 und 90, die 
der kfeinen Buchstaben zwischen 97 und 122. 

: BUCHST 

( ASCII Code - MERKER) 

DUP ASCII A 1- > 

OVER ASCII Z 1+ < AND 
SWAP DÜP ASC II a 1 - > 

SWAP ASCII z 1+ < AND OR 


Es gibt aber einen hübschen Trick, der zeigt, wie man mit ASCII Codes 
spielen kann. Der ASCII Code eines Kleinbuchstabens ist um 32 
größer als der des entsprechenden Groß buchstaben s. In der Binär¬ 
schreibweise erkennen Sie, daß es genügt, ein Bit von 1 auf 0 zu 
ändern, um aus einem kleinen einen großen Buchstaben zu machen: 

der Binärcode von A ist 0100 0001 
der Binärcode von a ist 0110 0001 

Dieses Bit ist zu ändern 

Mit AND und der Zahl 1101 1111 (Dezimal 223) können wir das 

entscheidende B i t ändern: 7 Bits bleiben so, wie sie waren, 
das Bit, worauf es ankommt, wird zu 0. 

Wir erhalten auf diese Weise ein kürzeres Wort BUCHST. Zunächst än¬ 
dern wir in Großbuchstaben und fragen nur noch danach: 

: BUCHST 

( ASCII Code - MERKER) 

223 AND 

DUP ASCII A 1- > 

SWAP ASCII Z 1+ < AND 
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Zusammenfassung: 
FORTH-Wörter: AND, OR, XOR 


Übungen: 

1. Obwohl wir x-mal darauf hingewiesen haben, daß AND, OR und 
XOR nur mit den Operanden 0 und J einwandfrei arbeiten, gilt 
dies für OR nicht. Hier kann in der Tat eine "wahre" Bedingung 
aussehen, wie sie will. Warum? 

2. Definieren Sie ein Wort &, das zwei Zahlen aus dem stack nimmt 
und eine 1 hinterläßt, wenn sie "wahr", d.h. ungleich 0 sind, 
und eine 0 , wenn eine von ihnen 0 ist. (Verwenden Sie IF. . E LSE. . 
THEN) . 

Definieren Sie auch Wörter, die so mit OR und XOR korrespondieren, 
wie b mit AND. 

3. Sie können sich die Zahl 223 in BÜCHST als eine Art Maske vorstel¬ 
len, die AND vorschreibt, bestimmte Bits eines anderen Wortes 
unverändert zu lassen und nur eines zu 0 zu machen. 

Entsprechende Masken könnten OR dazu veranlassen, bestimmte 
Bits unverändert zu lassen und den Rest in 1 zu ändern; oder mit 
XOR bestimmte Bits umzukehren, unabhängig davon, wie sie vorher 
aussahen, 

Stellen Sie hierzu Überlegungen an. 

-1 XOR nimmt den TOS und kehrt alle seine Bits um. Aus 0 wird 
1, aus 1 wird 0. Wie geht das? (Hinweis: Wie sieht -1 in Binärform 
aus?) 
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KAPITEL 19 

ERWEITERTE ARITHMETIK 

8 

In einem Byte lassen sich 256 (= 2 ) Zahlen darstellen, in zwei 

Bytes 256 * 256 - 65536 Zahlen. (Ohne Vorzeichen der Bereich von 0 
bis 65535,mit Vorzeichen von -32768 bis 32767). 

In vier Bytes könnte man 256 = 4 294 967 295 Zahlen un terbr i ngen, 

dazu müßte man ein Paar normaler Z wei-By te-Zahlen benutzen. Man 
erhält damit eine wesentlich höhere Genauigkeit bei vielen Berechnun¬ 
gen. Das ist das Prinzip der Doppel I ängen-Ar f thmet ik. 

Die hierfür vorgesehenen Wörter behandeln die beiden obersten Zahlen 
im stack wie die beiden Hälften einer 4 Bytes langen Zahl. 

D+ ( dl ,d2 - dl + d2) addiert zwei doppelt lange Zahlen in den TOS. 

Für den Anfang nehmen wir etwas Einfaches, was man mit einfacher 
Länge wesentlich eleganter rechnen könnte: 3 + 5. 

3 0 5 0 D+ . . 

Zunächst werden also für die Eingabe einer doppelt langen Zahl 2 wei 
einfache Zahlen erngetastet: 3 0 für 3 und 5 0 für 5. In hexadezimalen 
Ziffern hat die 3 folgendes Aussehen: 

0000 | 0003 

si gn if i kantere , | weniger signifikante, 

obere Hälfte, ! untere Hälfte, 

höher im stack | tiefer im stack 


Für diese Vorgänge ist die Zahlenbasis Hex natürlich sehr nützlich, 
weil die beiden einfachlangen Zahlen, die Säe auf dem stack ablegen 
wollen, den ersten vier (im stack oben I iegenden} und den zweiten 
vier (im stack danach folgenden} hexadezimalen Ziffern entsprechen. 
Eine Zahl in Hex (z.B. 4C83A2) muß zunächst auf 8 Stellen erweitert 

werden: 

004C 83A2 

Nach BASE ! geben Sie ein 
83A2 004C 

Die Ziffern sind gleich, die beiden Gruppen werden bei der Eingabe 
jedoch vertauscht, damit sie in der richtigen Reihenfolge auf dem stack 
ankommen. 


Beachten Sie bitte: bevor Sie von einer negativen Zahl das Zweierkom¬ 
plement bilden, müssen Sie noch einige Nullen vor der Zahl einfügen. 
Das Zweierkomplement wird genauso gebildet wie bei einfachlangen Zah¬ 
len (s.Kap.17): 1 wird gegen 0, und 0 gegen 1 vertauscht (oder die 
Zahl von Hex FFF F FFFF subtrahiert}, und dann 1 addiert. 


Haben Ihre Zahlen 
weise nicht, auch 
die doppelte Länge 


einfache Länge, dann brauchen Sie die Hex-Schreib- 
wenn sie doppelt lang verarbeitet werden sollen. Um 
zu erzeugen, müssen Sie folgendes tun: 
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1. Bringen Sie die Zahl in den stack. 

2. Ergänzen Sie 0 {für positive Zahlen oder 0), oder -1 (für 
negative Zahlen) 

Einige weitere Wörter für doppelt lange Arithmetik: 

D< ( dl ,d2 - MERKER), Ergibt 1 (wahr), wenn dt < d2. 

DNEGATE ( d - -d) kehrt das Vorzeichen der Zahf um. 

U* ( nl ,n2 - n1*n2) führt eine Multiplikation aus. nl und n2 sind 
einfachlange Zahlen ohne Vorzeichen. Das Produkt n1*n2 hat eben¬ 
falls kein Vorzeichen, ist aber doppelt lang. 

256 256 U* . . 

ergibt 1 und 0, die beiden Teile der Zahl 65536 (Hex 1 0000) 

U/MOD ( d!,n2 - Rest d 1/n2,Quotient) . Durch das U wird erreicht, 
daß alle Zahlen ohne Vorzeichen verarbeitet werden. Auch hier 
ist, wie in U*, doppelt lange Arithmetik enthalten, di, der 
Di vidend,wi rd doppelt lang, alle anderen Zahlen haben einfa¬ 
che Länge. 

/* ( nl,n2,n3 - (n1*n2){n3)). Wir haben dieses Wort schon im Kap.5 
behandelt. nl*n2 wird als doppelt lange Zahl ausgerechnet. Dadurch 
wird die notwendige Genauigkeit erzielt, auch wenn Sie nie eine 
doppelt lange Zahl zu Gesicht bekommen. */MOD arbeitet entspre¬ 
chend . 

Wir zeigen Ihnen jetzt ein paar Möglichkeiten, Zahlen formatiert darzu¬ 
stellen. Zur Formatierung braucht FORTH doppelt lange Zahlen. Einfach 
lange Zahlen müssen durch Vorausstellen von 0 bezw. -I erst auf dop¬ 
pelte Länge umgewandelt werden. 

Zur formatgerechten Ausgabe zerlegt FORTH die Zahlen in einzelne Stel¬ 
len und speichert sie rückwärts in einem Zwischenspeicher, dem Pad. 
Bei diesem Vorgang können Texte und Sonderzeichen eingefügt werden. 

Der Umkehrvorgang kann relativ einfach bewerkstelligt werden. Um 
etwa die Zahl 123 umzukehren, wird sie durch 10 (die Zahlenbasis) 
dividiert. Man erhä't Quotient 12 und Rest 3. Dieser Rest ist die 
letzte Ziffer. Durch Wiederholung des Vorgangs mit der Zahl 12 
erhalten wir Quotient 1 und Rest 2, die nächste Ziffer. Schließlich 
bleibt noch die 1, die genauso als Quotient ermittelt werden kann. 
Diese Methode läßt sich in jeder Zahlenbasis anwenden. 

Mit <# beginnt der Vorgang. 

Mit #> ist er beendet. Die Zahl ist aus dem stack verschwunden, Statt- 
dessen sind dort die Adresse der ersten Ziffer und die Zahl der Ziffern 
eingetragen (genau was TYPE braucht). 

Zwischen diesen beiden Wörtern gibt es: 

# ( dl - d2) erzeugt eine Ziffer aus einer doppelt langen Zahl (ohne 
Vorzeichen). Die Zahl wird durch die aktuelfe Zahlenbasis dividiert, 
der Rest in den Z wischenspeicher (er ist die nächste anzu 2 eigende Zahl), 
der Quotient bleibt im stack. 

#S ( dl - 0,0) wiederholt # solange, bis aus der doppelt langen 
Zahl im stack 0 geworden ist. Beachten Sie bitte, daß #S eine 0 auf 
dem stack hinteriäßt. 

Mit HOLD können Sie die gewünschten Sonderzeichen einfügen. HOLD ( 
ASCI I-Code -) speichert ein Zeichen, dessen ASCII-Code gegeben ist, 
in den Zwischenspeicher. 
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Mit dem, folgenden Wort GELD können Sie einen Betrag, der im stack 
als Wert in Pfennigen gespeichert ist, formatiert anzeigen: 

: GELD 

{ Pfennige - ) 

0 ( erzeugt doppelte Länge) 

<# # # ( zwei Steilen für Pfennige) 

ASCII , HOLD ( Komma) 

#S ( Mark) 

ASCI I M HOLD ASC I I D HOLD 

#> type 


Da alles von rückwärts aufgebaut wird, kommen Pfennige vor DM, 
und auch im Wort DM zuerst das M und dann das D. 

Das nächste Beispiel zeigt, daß Sie innerhalb <#....#> auch rechnen 
können, Es nimmt eine Zeit in Sekunden, wandelt sie um und zeigt 
sie in der Form Stunden : Minuten : Sekunden an. 

: MINSEC 

( Dividiert den TOS durch 60, speichert den Rest in 
zwei Ziffern und setzt danach Doppelpunkt) 

( n - n/60) 

60 /MOD SWAP 
0 # # DROP DROP 
ASC I I : HOLD 


: ZEIT 

( Anzahl Sekunden - ) 

<# MINSEC ( : Sekunden) 
MINSEC ( : Minuten) 

0 #S ( Stunden) 

#> TYPE 


Ein weiteres Wort im Zusammenhang mit <# und #> ist SIGN ( Ganzzahl 
- ). 5IGN nimmt aus dem stack eine einfachlange Ganzzahl mit Vor¬ 

zeichen und überträgt ein Minuszeichen in den Zwischenspeicher, 
wenn sie negativ ist. 

Da # Zahlen ohne Vorzeichen verwendet, müssen Sie mit # den Absolut¬ 
wert verarbeiten und irgendwann SIGN einsetzen. Mit dem nachfolgenden 
Wort D-> PAD kann man eine doppeltlange Ganzzahl mit Vorzeichen an¬ 
zeigen . 

: D->PAD 

( doppeltlange Ganzzahl - ) 

DUP >R DUP 0< 

IF 

DNEGATE 

THEN 

<# #5 R> SIGN #> 


D. 

( doppeltlange Ganzzahl - ) 
0->PAD TYPE 


Wir stellen zunächst das Vorzeichen der Zahl sicher. Es wird im 
höchstwertigen Bit der Zahl dargestellt (als 0 für positive Zahlen 
oder 0, als 1 für negative Zahlen). 
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D-> PAD hat die beiden Teile der Zahl zur Verfügung ( geringerwertiger 
Teil i höherwertiger Teil). 

DUP >R sichert das Vorzeichen (als Teil der höherwertigen Hälfte) im 
RETURN-stack. 

Jm stack steht jetzt noch die Zahl mit Vorzeichen, ist sie negativ, 
wird sie mit DNEGATE umgekehrt. Auch dazu genügt es, die höherwerti¬ 
ge .Hälfte zu betrachten. 

Es folgt die Übertragung der Ziffern in den Zwischenspeicher mit #S, 
und danach wird das Vorzeichen mit R> SIGN ergänzt. 

Jetzt ist das Arbeiten mit doppel 11 angen Zahlen schon besser zu erken¬ 
nen. Versuchen Sie z.B. 

256 256 U* D. 

Bekannte Wörter aus der Einfachl ängen-Ari thmeti k können entsprechend 
auf Doppellänge angepaßt werden. Hier einige Beispiele: 

: D0= 

( d - MERKER) 

OR 0= 


: D0< 

( d - MERKER) 
SWAP DROP 0 < 


: DABS 

( d - Absolutwert von d) 

OUP 0< 

IF 

DNEGATE 

THEN 


Definieren Sie weitere Wörter. Sie können auch die im Kapitel 15 bereits 
definierten Wörter zur Behandlung doppel 11 anger Zahlen heranziehen. 


Eine Umkehrung der forrnat ierten Ausgabe ist das Wort CONVERT, das 
Text in eine doppeltlange ganze Zahl umwandelt. Was damit gemeint 
ist, soll an den Zeichen "123" gezeigt werden, die wir in eine Zahl 
mit der Basis 10 umwandeln wollen. Wir verwenden dazu einen Akku- 
mu I ator , dessen Inhalt zu Anfang Null ist. Hier werden die bereits 
bearbeiteten Ziffern gesammelt. In jedem Folgeschritt multiplizieren 
wir den Akkumulator mit 10 und addieren die neue Ziffer hinzu. 

Wir werden im folgenden den Inhalt des Akkumulators in Worten dar¬ 
stellen, damit der Unterschied zwischen dem Text "123" und der resul¬ 
tierenden Zahl klar ersichtlich ist. 


Erste Stufe: 
Zweite Stufe: 

Dritte Stufe: 
Vierte Stufe: 


Akkumulator = Null. 

“1" lesen. Akkumulator mit zehn mu 11 ip f u ieren und 
eins addieren. Ergebnis: eins. 

"2" lesen. Akkumulator wird eins * zehn + zwei = zwö/f. 
Akkumulator wird hundertdreiundzwanzig. 


Dies ist tatsächlich die Umkehrung von #S. Sie arbeitet auch in 
jeder anderen Zahlenbasis. 
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CONVERT beginnt mit einem doppelt langen Akkumulator auf dem stack. 
Am Anfang des Akkumulators steht die Adresse des Zeichens ein Byte 
vor dem Text, den Sie umwandeln wollen. CONVERT liest die Zeichen 
einzeln und füllt den Akkumulator auf, bis es ein Zeichen findet, 

das in der aktuellen Zahlenbasis keine Ziffer ist. Dann stoppt es 

und legt auf dem stack den neuen Akkumulator und die Adresse 
dieses Zeichens ab: 

( Akkumulator, Adresse des Bytes vor dem Text - neuer Akkumulator, 
Adresse des Zeichens, das keine Ziffer mehr ist). 

Als Beispiel definieren wir ein Wort CONVERT,, das bei einer gegebe¬ 
nen Adresse beginnend, eine doppeltlange Zahl einliest und Kommata 

unterdrückt. 

: CONVERT, 

{ Adresse - doppeltlange Zahl,Adresse d. letzten Feldes) 

1-00 ROT 

BEGIN 

CONVERT DUP C@ ASCII , - 
ÜNTIL 


Zum Abschluß dieses recht ,f durchwachsenen" Kapitels wollen wir noch 
beschreiben, wie Gleitkommazahlen erzeugt werden. Eine Gleitkomma¬ 
zahl benutzt zwar auch vier Bytes wie eine doppeltlange Zahl, aber 
in einer/ganz anderen Weise, Jede Glei tkommazahl kann in der Form 

.xxxxxxEy 

geschrieben werden. Sie besteht aus Dezimalpunkt, 6 Ziffern (von denen 
die erste nicht 0 ist) und einem Exponenten y. Die Zahl 123,456 wird 
also in der Form .123456E3; die Zahl 0.0001234 in der Form .123400E-3 
geschrieben. 

Drei der vier Bytes werden für die Speicherung der 6 Ziffern 
benutzt. In einem Byte sind immer zwei Ziffern un tergebracht, je 
eine in vier Bits. Diese Schreibweise heißt Binary Coded Decimal 
(-Binär Codierte Dezimalzahl), weil nicht die Zahl insgesamt binär 
verschlüsselt wird, sondern jede Ziffer für sich. 

Sie können das sichtbar machen, indem Sie die Zahlenbasis 16 

wählen und eingeben: 

123.456 U. U. 

Sie erhalten die Anzeige 

43|12 3456 
+ 1 + 

Exponent | Binär codierte 
Byte Dezimalzahl 

Die Zahl 123.456 belegt zwei Plätze im stack. Der niedrigere Platz ent¬ 
hält die Ziffern 3456 (binär codierte Dezimalzahlen), der höhere 
Platz die Ziffern 12 und das Exponenten-Byte. Es können nur Exponen¬ 
ten zwischen -63 und +63 Vorkommen, Sie können binar in 7 Bits 
gespeichert werden. Aus technischen. Gründen wird nicht die übliche 
Methode für die Speicherung von Zahlen mit Vorzeichen verwendet. 
Zum echten Exponenten wird immer 64 hinzugezählt, so daß es nur 
positive Zahlen zwischen 1 und 127 gibt. 
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Das restliche Bit im Exponenten-Byte ist für das Vorzeichen der gesam¬ 
ten Gleitkommazahl reserviert: 1 für negative, 0 für positive Zahlen, 
Diese Steife hat auch bei doppeltlangen Zahlen die gleiche Funktion, 
so daß D0 < auch anstelle von F0< für Gleitkommazahlen verwendet wer¬ 
den kann. 

In der Gleitkommazahl 0. sind alle 4 Bytes 0. Deshalb kann D0= für 
Gleitkommazahlen ebenso verwendet werden wie F0= 


Zusammenfassung: 

Doppelt lange ganze Zahlen 
Formatierte Ausgabe 
Gl ei t kommazahlen 


FORTH-Wörter D+, D< , DNEGATE, U*, U/MOD, */, <#, #, #S, #> , 

HOLD, SIGN, CONVERT 


Übungen: 


1 . 


Schreiben Sie eine Version von GELD, 
vom Komma ausgibt und einen oder 


die immer drei 
mehrere Sterne 


wenn kein 
lung ), z .B . 


dreistei I iger 
DM** 1.95 


Stel len I inks 
(*) anzeigt, 


DM-Öetrag vorhanden ist ( sog .Schu tzstel - 


2. Definieren Sie die Doppel I ängen-Version bereits bekannter Wörter: 

D-, D=, DMAX, DM IN, und DU<. 

In einigen FORTH-AnWendungen gibt es das Wort D.R 

D.R ( d,n - ) gibt n Stellen einer doppel tl angen Zahl d aus. 
Nicht benötigter Platz wird mit Leerstellen aufgefüllt. In unserer 
Definition D.R verwenden wir das früher schon definierte D~>PAD. 

: D.R 

( d, n - } 

>R D-> PAD 

R> OVER - SPACES TYPE 


Achtun g: Ist die Zahl länger als die angegebenen Stellen, erhalten 
Sie einen Überlauf! 

Definieren Sie ein Wort S-> D mit dem Sie eine einfache Zahl mit 
Vorzeichen in eine doppelt lange umwandeln können. 
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KAPITEL 20 

IM WÖRTERBUCH 

Eine Wortdef in i tion wird, wie Sie wissen, ins Wörterbuch übernommen. 
Bisher haben wir drei Arten von Wortdef initionen kennengelernt: CON- 
STANT, VARIABLE und : . Obwohl die drei Arten von Wortdefi nitionen 

sehr unterschied! ich sind, haben sie andererseits doch einiges gemein¬ 
sam : 

1. Jedes Wort hat einen Namen 

2. Jedes Wort enthält Informationen, die das zuvor definierte Wort be¬ 
treffen. Alle Wörter sind nämlich in einer langen Kette miteinander 
verbunden, (man sagt auch miteinander verkettet); jedes Wort 
gibt an, wo das nächste zu finden ist. Die Kette beginnt bei dem 
zuletztjdefinierten Wort und verläuft {in der Reihenfolge von VLIST) 
bis zum ältesten Wort. Dort steht ein Kennzeichen, das besagt, 
daß keine weitere Verbindung mehr besteht. 

3. Jedes Wort hat ein 2 Bytes i anges Code-Feld, das grund sätzl ich 
angibt, was bei Ausführung des Worts zu tun ist. CONSTANT legt 
zum Beispiel eine Zahl in einen Speicher, : führt weitere FORTH- 
WÖrter aus. 

4. Jedes Wort enthält wettere Informationen (seine Parameter), die ge¬ 
nauere Aussagen machen, z.B. die Zahl, die CON5TANT speichern 
soll, oder die Wörter, die : ausführt. 

Name, Verkettung und Codefeld haben für jede Wortart das gleiche For¬ 
mat. Sie bilden den Anfang (engl.: Header - Vorsatz) des Worts. 
Jedes Wort hat einen Header . 

Die Parameter sind im Format sehr verschieden. Sie reichen von einer 
einzigen Zahl bis zu einem großen FORTH-Programm. 

Die Parameter bilden das Parameter-Feld ♦ Wie sie anzuwenden sind, 
ist im Codefeld festgelegt. 

Diese Festlegungen gelten ganz allgemein. Sie bedeuten, daß sich der 
Wortschatz nicht nur auf die bekannten FORTH-Wörter : , CONSTANT, 
VARIABLE beschränken muß, sondern daß man eigene Wort-Typen erzeu¬ 
gen kann. Die einfachste Methode hierfür bietet das Wort CREATE. 
Es bildet ein Wort, das nur einen Header (Vorsatz), aber kein Parame¬ 
terfeld hat, und stellt es ins Wörterbuch. 

Ein Wort ohne P arameterfel d scheint zunächst recht sinnlos zu sein. 
Dies ist aber nicht so, denn 

- Sie können ein Parameterfeld dafür festlegen (und werden das in 
der Regel auch tun), 

- das Wort legt bei seiner Ausführung die Adresse des Parameterfeides 
im stack ab. Sie können mit Hiffe dieser Adresse die Parameter ein- 
setzen, wie Sie wollen. 

Normalerweise verwendet man CREATE dazu, Variable mit mehr als einer 
Zahl zu speichern. Man nennt diese Variablen Bereichsvariablen (engl.: 
arrays). Wollen Sie z.B. Zahlen speichern, die die Anzahl der Tage 
aller 12 Monate wiedergeben, dann können Sie wie folgt verfahren: 
Bilden Sie ein Wort MONATE, dessen Parameterfeld diese 12 Zahlen in 
der richtigen Reihenfolge enthält. 
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Header f. MONATE | 31 | 281 3! | 30 | 31 | 301 31 | 31 | 30 | 31 | 30 | 31 | 


|-Parameter-Fei d---1 

Den Header bringen Sie mit 
CREATE MONATE 
in das Wörterbuch. 

Für das Parameterfeld gibt es ein Wort , (Komma). , (n -) nimmt 

eine Zahl aus dem stack und fügt sie in das Wörterbuch ein. Für die 
zwölf Zahlen geben Sie ein: 

31 , 28 , 31 , 30 , 31 , 30 , 

31 , 31 , 30 , 31 , 30 , 31 , 

Das , ist ein FORTH-Wort, kein Satzzeichen. Es muß durch Zwischen¬ 
raum von den Zahlen getrennt sein. Auch das , nach der letzten 
Zahl ist notwendig. 

Das Wort MONATE ist jetzt völlig definiert. Jetzt definieren wir ein 
Wort MONAT, das für die eingegebene Monatsnummer die Zahl der 

diesem Monat zugeordneten Tage bereitsteilt. 

: MONAT 

( Monat - Zahl der Tage) 

1- DUP + MONATE + 

9 


Die Definition für MONAT wird im Wörterbuch unmittelbar nach der letz¬ 
ten Zahl (31) von MONATE gespeichert. 

MONATE stellt im stack die Adresse seines Parameterfeldes, d.h. die 
Adresse der 31 für Januar, bereit. Dazu müssen wir für Januar eine 
0, für Februar eine 2 usw. addieren. Die Monatssummen sind vorher 
zu verdoppeln, weil die Zahl der Tage jedes Monats in zwei Bytes an¬ 
gegeben ist. 1- DUP + macht also aus der eingegebenen Monatszahl 
1 - 12 eine relative Adresse der gewünschten Zahl (0 - 22), die 
dann zu der Adresse des Parameterfeldes addiert wird, welche MONATE 
berei tstel 11. 

@ holt schließlich die gewünschte Zahl aus dem Wörterbuch. 

Wir 2 eigen eine ähnliche Anwendung für die Abkürzung der Tagesbe¬ 
zeichnungen (Mon,0ie,Mit). Dazu entwickeln wir ein Wort TAGTEXT, 
das die notwendigen 21 Zeichen enthält. Da ein Zeichen nur ein Byte 
benutzt, brauchen wir hierzu C, eine Version von , die auf ein Byte 
zugreift, 

C, (Zahl -) fügt wie , eine Zahl ins Wörterbuch ein, aber immer nur 
in ein Byte. 

Da die Eingabe ASCII M C, ASCII o C, usw. auf die Dauer sehr stupide 
wäre, definieren wir ein Hilfswort FOLGE, das uns die Definition von 
TAGTEXT erleichtern soll. Es nimmt ein Wort aus dem Eingabebereich 
und trägt es zeichenweise ins Wörterbuch ein. 

: FOLGE 

32 WORD COUNT ( count wurde in Kapitel 16 definiert) 

OVER + SWAP 
00 

I C@ C, 

LOOP 





1 03 


1 03 


Geben Sie jetzt ein 

CREATE TAGTEXT FOLGE MonOieMi tDonFreSamSon 
Wenn Sie FOLGE nicht mehr benötigen, können Sie es mit 
REDEFINE FOLGE 
durch TAGTEXT überschreiben. 

Jetzt brauchen Sie noch ein Wort TAG, das zu einer eingegebenen Ta¬ 
ges.zahl den entsprechenden Text anzeigt 

: TAG 

( Tag -) 

1- 3 * TAGTEXT + 

3 TYPE 


Für die Bereitstellung von Parameterfeldern gibt es noch ein anderes 
Wort, ALLOT (Anzahl Bytes -). Es stellt eine Anzahl von Bytes im Wör¬ 
terbuch zur Verfügung, wie das auch C, und , tun, läßt aber im Ge¬ 
gensatz zu diesen die Speicherpl ätze leer. Es reserviert also nur den 
Platz . 

CREATE ist ein ziemlich einfaches Wort. Es baut nur einen Header 
auf, hilft Ihnen aber nicht beim Aufbau des Parameterfeldes. Das 
durch CREATE erzeugte Wort schließlich stellt auch lediglich die 
Adresse des Parameterfeldes im stack ab, das ist alles. Das ist ja 
ganz schön, wenn Sie ihr Wort nur einmal brauchen, aber bei 
mehreren ähnlichen Vorgängen tun Sie damit dieselbe Arbeit mehrmals. 

Sie wollen z.B. die Tagesbezeichnung in verschiedenen Sprachen haben: 
DAY in Englisch. JOUR in Französisch.Für jede Sprache brauchen Sie 

1. Die Daten (Tagesbezeichnungen) inklusive einer Methode, sie aufzu¬ 
bauen (was FOLGE tut). 

2. Ein Wort, das die Daten dann anzeigt, so wie TAG. 

Dabei ändern sich von Sprache zu Sprache ja nur die Daten. Wir defi¬ 
nieren uns deshalb ein Wort MACHTAGE, das die Bezeichnungen sowohl 
einbaut als auch verwendet. Dazu können wir definieren 

MACHTAGE TAG MonOieMi tDonFreSamSon 

MACHTAGE kann Daten aufbauen, TAG enthält selbst die Daten, TAGTEXT 
wird nicht mehr gebraucht. Wenn wir TAG so verwenden wie vorher 
nimmt es Bezug auf MACHTAGE. 

Wie geht das? Zunächst definieren wir MACHTAGE, aber nichl mit : 
sondern mit zwei neuen Wörtern DEFINER und D0ES > . Sie werden 
immer zusammen benutzt. (Geben Sie vorher noch ein FORGET TAGTEXT 
und FORGET TAG ein. Sie brauchen beide nicht mehr). 

DEFINER MACHTAGE 

32 WORD 1+ DUP 21 + SWAP 
DO 

I c@ c, 

LOOP 

D0ES> 

SWAP 1- 3 * + 

3 TYPE 


(Der Abschluß erfolgt mit ; wie in einer Doppelpunktdefinition). 
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Der ganze Vorgang besteht aus zwei Teilen: 

Der Def initionstei I geht bis DOES > . 

Wenn wir sagen 

MACHTAGE TAG MonDieMi tDonFreSamSon 

erzeugt MACHTAGE zunächst einen Header für TAG, genau wie CREATE, 
wobei das Codefeld ^ders aussieht, wie wir noch sehen werden. 

Dann baut MACHTAGE in seinem Definitionsteil das Parameterfeld für 
TAG auf, - es liest in unserem Fall eine Zeichenfolge (englstring) 
aus dem Eingabebereich und fügt 21 Zeichen davon ins Wörterbuch ein, 
wie das auch das Wort FOLGE getan hat. TAG ist jetzt richtig defi¬ 
niert. MACHTAGE ist zunächst fertig. 

Teil 2 von MACH TAGE, der Teil von DOES > bis ; ist der Ak tionste 11 ■ 
Er wird eingesetzt, wenn wir sagen 

3 TAG 

Wäre TAG mit CREATE aufgebaut worden, würde nicht viel geschehen 
- lediglich die Adresse des Parameterfel ds würde auf dem stack hinter¬ 
legt. Jetzt hingegen kann TAG mehr: Mit Hilfe von MACHTAGE legt TAG 
zwar immer noch die Adresse auf dem stack {über die eingebene 3) 
ab, führt aber dann den Aktionstell von MACHTAGE aus. Dieser Teil 
benutzt die beiden Zahlen, um die Kurzbezeichnung zu suchen und an- 
zuzeigen. 

Geben Sie ein 

MACHTAGE JOUR lunmarmerjeuvensamdim 
MACHTAGE DAY mon tuewedthufr isatsun 

4 JOUR 

5 DAY 


Dies ist eine der klügsten Ideen von FORTH, die zu beherrschen 
sich lohnt! 

Beachten Sie bitte, daß MACHTAGE nicht eines der bisherigen 
Wald- und Wiesenworte ist. Es hat vielmehr die Fähigkeit, neue 
Wörter zu definieren und steht auf einer Ebene mit CONSTANT, 
VARIABLE und CREATE. DEFINER steht sogar noch weiter oben, 
denn es kann neue Wörter definieren, die ihrerseits wieder 
neue Wörter definieren können. Im nächsten Kapitel werden wir 
sehen, wie man damit Erleichterungen schaffen kann, an denen 
es im FORTH in seiner Grundform fehlt. 


Beachten Sie weiter: Wenn Sie ein definierendes Wort (wie MACHTAGE) 
benutzen, und wenn wahrend der Definition eines neuen Wortes (z.B. 
TAG) ein Fehler auftritt, geht die unvollständige Definition im Wörter¬ 
buch verloren. Dadurch wird zwar weiter kein Schaden angerichtet, 
aber es wird Speicherpl atz verschwendet. Sie sollten es deshalb mit 
FORGET löschen. In Kapitel 24, Übung 5 zeigen wir Ihnen einen ande¬ 
ren Weg. 

Noch eine Anmerkung: 

In anderen FORTH-Versionen wird statt 
DEFINER Name 

geschrieben 

: Name CREATE 

oder 


: Name <BUILDS 


Die Wirkung ist gleich, im ACE ist aber nur DEFINER möglich. 
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Schauen wir uns zum Schluß noch an, wie der Header eines Wortes 
genau aufgebaut ist: 

Zuerst kommt das Namensfel d . Es enthält den Namen und hat für 
jedes Zeichen ein Byte (maxima I 63). Buchstaben werden in Großschrei¬ 
bung dargestellt. Das letzte Zeichen zur Kennzeichnung wird um 128 
erhöht (d.h. daß das höchstwertige 8 r t auf "1” geschaltet wird). 
Normalerweise bedeutet dieses Zeichen die Umschaltung auf Invers 
Video, nicht aber hier. 

An zweiter Stelle folgen 2 wei Bytes, das Längenfeld . Es gibt die 
Gesamtlänge der Wortdefinition, ausgenommen das Namensfeld, an: 7 
für den Rest des Headers + Länge des Parameterfel des. Das Längen¬ 
feld wird ausgefüllt, wenn das nächste Wort definiert wird. 

Das Dritte ist das zwei Bytes lange Verkettungsfeld . Es ist die Adresse 
des Namens!ängenfeldes des unmittelbar vorher definierten Wortes. 

An vierter Stelle folgt ein Byte als Namensl ängenfeld , also die Zahl 
der Zeichen, aus denen der Name besteht. Um aus einem Wort ein So ¬ 
fortwort zu machen (s.Kapitel 23), kann zu der Länge noch die Zahl 
64 addiert werden. 

Wort fünf ist das Codefel d , das in zwei Bytes angibt, wie sich das 
Wort verhalten soll. 

Mit dem Wort FIND erhalten Sie die Adresse des Codefefdes des ange¬ 
gebenen Wortes. 

Zusammenfassung: 

Header (Vorsätze) von Wörtern - Namensfelder, Längenfelder, Verket- 
tungsfefder, Namensl angenfelder, Codefelder, Parameterfelder. 

FORTH-Wörter: CREATE , C, ALLOT DEFiNER DOES > 

Übungen: 

1. Wenn es VARIABLE und CONSTANT nicht gäbe, wie könnte man sie 
mit ÖEFfNER definieren? Definieren Sie ähnliche Wörter 2VARIABLE 
und 2CONSTANT, die 4-Bytes-Zahlen speichern können, d.h. entweder 
Gleitkommazahlen oder Ganzzahlen mit Doppelter Genauigkeit. 

2. Definieren Sie ein Wort KOPF mit CREATE und vergleichen Sie 

KOPF . 

mi t 


FIND KOPF . 


Das erste Wort gibt die Adresse des Parameterfel des, das zweite 
die Adresse des Codefeldes an, das 2 Bytes davor liegt. 

3. Viele FORTH-Versionen haben ein Wort 1 {ausgesprochen "tick”), 
das wie FIND arbeitet, aber die Adresse des Parameterfel des aus¬ 
gibt. Seine Definition auf dem ACE wäre 

. i 

FIND 2+ 

> 

4. In Kapitel 11 Übung 1 haben wir versprochen, Ihnen eine schnelle 
Methode der Berechnung von Tonhöhen-Zah len vorzustellen. Das 
Problem bestand darin, eine gegebene Tonhöhe mit (1/2) n ^ zu mul¬ 
tiplizieren, um die Daten eines Halbtons zwischen 0 und 11 zu er¬ 
l/12 

rechnen. Dazu haben wir sie n-mal mit (1/2) multipliziert. Es 

ist aber besser, die 12 Zahlen in einem Bereich zu speichern. 
^ et ^ e wird mit 2 Zahlen als Bruch definiert {z.B. 17843/18904 für 

( 1 / 2) 1/12 ). 
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Definieren Sie 

CREATE SKALA 1 , 1 , 17843 , 18904 , 

26547 , 29798 , 16585 , 19723 , 

4813 , 6064 , 5089 , 6793 , 

19601 , 27720 , 6793 , 10178 , 

3032 , 4813 , 5377 , 9043 , 

14899 , 26547 , 9452 , 17843 , 

(zusammen 24 Zahlen). 

Die neue Version von SEMI heißt jetzt 

: SEMI 

( Halbtöne über kleinem c - Tonhöhe) 

36 + ( Halbtöne über dem tiefen C) 

12 /MOD SWAP ( Zahl Oktaven, Zahl Halbtöne) 
3822 SWAP 

DUP + DUP + SKALA + 

DUP @ SWAP 2+ @ */ 

SWAP ?DUP 
IF 

( Division durch 2 für jede Oktave) 

0 

DO 
2 / 

LOOP 

THEN 


5. Hier folgt noch eine hübsche Prüfmöglichkeit für TAG, JOUR 
DAY unter Verwendung von FIND und EXECUTE 
: TEST 
FIND 8 1 
DO 

I OVER EXECUTE SPACE 
LOOP 
DROP 


und 


Nun geben Sie ein 

TEST TAG 
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Zwei An wendungsbei sp ieie, die DEFINER benutzen: 

Strings (-Zeichenketten) sind Aneinanderreihungen von Zeichen, die 
ais eine Einheit behandelt werden. 

Bereiche (^Arrays) sind Variable, die mehr als eine Zahl speichern 
können. 

In vielen Computersprachen sind Strings und Arrays bereits eingebaut. 
Bei FORTH ist dies normaI erweise nicht so, aber Sie können diese Hilfs¬ 
mittel selbst definieren oder als fertiges Produkt auf Kassette kaufen. 


5tri ngs 

Ein String ist eine Kette (oder Folge) von Zeichen. Es ist nicht das 
gleiche wie ein Wort, weil ein Wort im Gegensatz zum String eine vor¬ 
definierte Funktion hat. Mit FORTH können Sie 5trings mit .'»lediglich 
anzeigen, aber in vielen Computersprachen können Strings fast wie 
Zahlen verarbeitet werden. Wir zeigen Ihnen hierfür einige Beispiele. 

Zunächst suchen wir eine Möglichkeit, 5trings auf dem stack abzulegen, 
allerdings geht das nicht direkt. Während für eine Zahl grundsä tz I ich 
feststeht, wieviel Platz sie im stack braucht (zwei Bytes für eine ganze 
Zahl, vier Bytes für eine doppelt lange Zahl), kann ein String jede 
Länge bis maximal 255 Bytes haben. Deshalb legen wir den String 
irgendwo im Speicher ab und notieren seine Adresse und Länge im 
stack. Das ist wiederum genau die Form, in der TYPE arbeitet, so 
daß wir den String schon anzeigen können. Im nächsten Schritt legen 
wir ein Verfahren fest, mit dem Strings anstelle von Zahlen gespeichert 
werden können. 

Dazu definieren wir ein Wort STRING. Sein Def in i tionstei I erzeugt ein 
P arameterf e I d, das zunächst ein Byte für die Länge enthält (der String 
kann deshalb auch nicht länger als 255 Bytes sein), und dann den 
String selbst, der aus dem E ingabebereich gelesen wurde. Der Aktions¬ 
teil setzt die Adresse des P arameterfel des in Adresse und Länge des 
String um und legt sie in der üblichen Form auf dem stack ab. Wir 
verwenden das Wort COUNT aus Kapitel 16: 

DEFINER STRING 

ASCII »• WORD COUNT DUP C, 

OVER + SWAP 
00 

I c@ c, 

LOOP 

D0ES> 

COUNT 


Definieren Sie nun einen String, indem Sie alles in einem Vorgang ein¬ 
tasten : 

STRING SPRUCH WER DEN SCHADEN HAT, BRAUCHT FUER DEN SPOTT 
NICHT ZU SORGEN” 


Da wir mit ASCII " WORD das Anführungszeichen M ais Begrenzer defi¬ 
niert haben, können wir im String Leerstellen verwenden. 

Mit 

SPRUCH TYPE 


können Sie das Sprichwort wieder anzeigen. 
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Aus einem String kann man Teile herausnehmen (sogenannte Sub- 
stri ngs ). Man nennt diese Methode sl icing (^schneiden }. Sie müssen 
dazu nur angeben, wo der Substring beginnen und enden soll, und 
natürlich ein Wort SLICE definieren. Das Wort soll so beschaffen 
sein, daß es aufgrund der Angabe 

SPRUCH 35 50 SLICE TYPE 
den Text "DEN SPOTT NICHT” anzeigt. 

SLICE hat vier Operanden: Adresse und Lange des großen Strings, 
sowie Anfang und Ende des innerhalb liegenden Substrings. Da 
hieraus die übliche Formatangabe für String resultiert, können Sie 
mit dem Substring das Gleiche tun wie mit dem ursprüngl ichen 
String. Sie können ihn sogar noch einmal zerschneiden. 

: SLICE 

( Adresse, Länge, Anfang, Ende - Adresse, Länge) 

SWAP 1 MAX 3 PICK MIN 1- 
( Adresse, Länge, Ende, Anfang-1 ) 

SWAP ROT MIN OVER MAX 
( Adresse, Anfang-1 , Ende ) 

OVER - ROT ROT + SWAP 


Diese Definition achtet darauf, daß der Anfang nicht zu niedrig, das 
Ende nicht zu hoch, oder das Ende nicht niedriger ist als der Anfang* 

Man kann Strings miteinander vergleichen. Zwei Strings sind offensicht¬ 
lich dann gleich, wenn sie dieselben Zeichen in derselben Reihenfolge 
haben. Etwas schwieriger ist es, Strings in eine alphabetische Ordnung 
zu bringen. Wir gehen davon aus, daß ein String "kleiner" ist als 
der andere, wenn er im Alphabet zuerst kommt: "Hund" ist 

kleiner als "Katze", "Drei" ist kleiner als "Zwei". Wir verwenden 
dazu die Zeichen < (kleiner als) und > (größer als), die wir in 
Verbindung mit Zahlen schon kennen. 

Die Ordnungsregel n sind hier etwas anders. Sie basieren auf dem ASCII 
Code der Zeichen. Um zwei Strings zu vergleichen, prüfen Sie Zeichen 
für Zeichen bis zu einer Stelle, an der Sie voneinander abweichen, 
und vergleichen diese beiden Zeichen miteinander. Dieses Verfahren 
stellt sicher, daß "Buchbinder" vor "Buchmacher kommt. Da aber 
die ASCII Codes der kleinen Buchstaben größer sind als die der 
Großbuchstaben, ist überraschenderweise "Zoo" kleiner als "affe", und 
"FÖRTH" kleiner als "Förth”. 

Als 5tring-Versionen von < und > definieren wir die Wörter $=, $< 
und $ >. 

: 0 <> 

( n - MERKER) 

( prüft n auf Nicht-Null) 

0 = 0 = 
f 

: +COUNT 

( verwendet in CHECK) 

4 ROLL 1+ 4 ROLL 1- 


Fortsetzung Folgeseite 
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: CHECK 

( Adresse 1, Länge 1, Adresse 2, Länge 2 - Adresse 3, 
Länge 3, Adresse 4, Länge 4) 

{ Gleicht Adressen und Längen zweier Strings aneinender 
an, um übereinstimmende Anfangszeichen zu übergehen) 
BEGIN 

3 PICK 0<> OVER 0<> AND 
5 PICK C@ 4 PICK C@ = AND 
WH ILE 

( noch kein String fertig und noch Übereinstimmung) 
+COUNT +COUNT 
REPEAT 


: <OROP 

( a ,b - b) 
SWAP DROP 


: $- 

( AI , LI , A2, L2 - MERKER) 

CHECK ( die Strings sind jetzt gleich, wenn beide Längen 
0 sind ) 

<DROP 0R <DR0P { Adressen fallen weg, Längen mit OR 
zusammengekoppel t) 

0 = 


: $< 

( AI , LI , A2, L2 - MERKER) 

CHECK ROT { A3, A4, L4, L3) 

OVER 0<> OVER 0<> AND 
IF 

( noch kein String zu Ende, verschiedene Zeichen ver¬ 
gleichen ) 

DROP DROP C@ SWAP C@ > 

EL5E 

( Ein String startet den anderen) 

> <DROP <DR0P 
THEN 


: $> 

( AI , LI , A2, L2 - MERKER) 
4 ROLL 4 ROLL $< 


Das entscheidende Wort ist CHECK, das beide Strings prüft, bis es ein 
Zeichen findet, in dem beide Strings sich voneinander unterschieden. 
Auf "Buchbinder" und "Buchmacher" angewendet, endet CHECK mit 
"binden" und "machen". 
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Bereiche 

Ein Bereich (engl.array) ist eine Variable, die mehr als eine Zahl 
aufnehmen kann, wie zum Beispiel MONATE. Diese Zahlen heißen Eiemen- 
_te des Bereichs, MONATE hat also zwölf Elemente, nämlich 31 , 28, 31 
usw. Lim ein besonderes dement anzusprechen, nehmen Sie seine Posi¬ 
tion im Bereich, seinen Index ■ In MONATE sind die Indices für 
Januar = 1, für Februar = 2 usw. 

Da wir MONATE mit CREATE definiert haben, mußten wir auch MONAT 
beschreiben, um den Index in die Adresse eines Elements umzuwandeln. 
Mit DEFINER kann man ein Wort BEREICH definieren, das man wieder¬ 
um zur Definition von MONATE verwenden kann. MONATE kann dann 
sowohl die Elemente speichern als auch die Indices verarbeiten {eine 
schöne Übung). 

Eine kompliziertere Bereichsdefinition benutzt zwei Indices für jedes 
Element: Der Bereich ist zweidimensional ■ Die Elemente sind mit 
Zahlen in einer Tabelle zu vergleichen, die man mit einem Index für 
die Zeilejurd einem zweiten für die Spalte ansprechen kann (vgl .5.72). 

Mit den nachfolgenden Wörtern können Sie zweidimensionale Bereiche 
definieren. Es sind nur Beispiele, mann kann noch eine Menge ergän¬ 
ze 1 ''- Ist Ihr Speicher nicht groß genug, löschen Sie vorher die 
Wörter zum Thema String. 

: 2 * 

( n - 2*n) 

□ UP + 


ZE ILE 

." Zeilenfehler" 
CR 


SPALTE 

Spaltenfehler" 

CR 


: NACHRICHT 

Bitte FORGET dieses Wort." 
CR ABORT 


: ZEILE? 

IF 

ZEILE ABORT 
THEN 


: SPALTE? 

IF 

SPALTE ABORT 
THEN 


Fortsetzung Folgeseite 
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DEFINER 2-D 

( Zeilenzahl, Spaltenzahl} 

DUP 1- 0< 

IF 

( Zahl d.Spalten ist 0 oder kleiner) 

SPALTE NACHRICHT 
THEN 

OVER DUP 1- 0< 

IF 

( Zahl d.Zeilen ist 0 oder kleiner) 

ZEILE NACHRICHT 
THEN 

C, DUP C, * 2* ALLOT 
DOES> 

( Zeile, Spalte, Bereichsadresse - Elementadresse) 
ROT ROT 3 PICK ( Adresse, Zeile, 5palte, Adresse) 
C@ 3 PICK DUP 1- 

0< ZEILE? < ZEILE? ( Fehlermeldung, wenn falsche 
Zei le) 

DUP 1- 0< SPALTE? 

3 PICK 1+ C@ DUP 

3 PICK < SPALTE? ( Fehlermeldung, wenn falsche 
Spal te) 

ROT 1- * + 2* +■ 


2-D setzen Sie ein, indem Sie z.B. sagen 
8 8 2-D SCHACH 


oder 

1 12 2-D MONATE 

Die Elemente werden wie Variable 
ein Element nach Zeile 2, Spalte 5 



Legt Element fest 

und mit 


und dann Ihre Elemente einfüllen 
mit @ und ! verarbeitet. Um z.B. 
in SCHACH zu laden, geben Sie ein 


2 S iCHAßH @ 


holen Sie es wieder In den stack. 
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Zusammenfassung; 

Strings, Substrings, Vergleich von Strings, 

Arrays (Bereiche), Elemente, Indices, Dimensionen. 

Übungen: 

1. Noch ein paar Verbesserungen zu Strings: 

- Zuordnung: Die Zeichen eines Strings sollen in einen zweiten 
übertragen werden. Adressen und Längen beider Strings sind im 
stack vorhanden. Ist der erste String zu lang, soll das Ende 
abgeschnitten werden, ist er kürzer, sind die übrigen Bytes mit 
Leerstellen aufzufüllen. 

“ Ein Wort, das nur die Länge eines Strings auf dem Stack behält 
(und die Adresse wegwirft). 

- Ein Wort, das den ASCI I-Code des ersten Buchstabens im stack 
ablegt. 

2. Weitere Möglichkeiten für Bereiche: 

- Wenn die Adresse eines Elements errechnet wird (z.B. durch ein 

Programm), können die Indices geprüft werden, um zu vermei¬ 
den, daß sie zu groß oder zu klein werden, wie z.B. in 2-D. 

Andererseits wird ein Programm natürlich schneller, wenn man 
solche Prüfungen wegläßt. 

- Wir haben für einen Bereich Obergrenzen definiert, um festzule¬ 

gen, wie groß er werden darf. Die Untergrenzen müssen natür¬ 
lich nicht automatisch bei 1 liegen. Sie können ebenfalls frei 

def in i er t ^werden . 

- Man kann drei- oder mehrdimensionale Bereiche definieren. Die 

Zahl der Dimensionen entspricht der Zahl der Indices, die zu 

einem Element gehören. Mit einem Wort DIM (statt 2-D) wird 
dann erst die Zahl der Dimensionen vom stack gelesen und in 

das Parameterfeld gestellt. Danach folgen die Grenzen selbst. 

- Ein Bereich (array) muß nicht auf zwei Bytes lange Zahlen für 
Eintragungen beschränkt sein. Man könnte auch Bereiche für Ein¬ 
tragungen von einem oder vier Bytes definieren. 

- Das Definitionswort könnte alle Elemente auf 0 setzen, wenn der 
Bereich definier! wird. 

™ Ein Konstanten bereich enthält feste Elemente. Diese müssen bei 
der Definition des Bereichs bereits im stack vorhanden sein. 

Diese Anforderungen sind zum Teil recht schwierig zu realisieren. 
Versuchen Sie Ihr Glück. 

3. Zwei Wörter, die man oft In FORTH findet, nicht aber im ACE FORTH 
sind MOVE und CMOVE. Für die Bearbeitung von Strings sind sie 
sehr nützlich. Sie kopieren Information von einem Speicherplatz zu 
einem anderen. 

MOVE ( Adresse 1, Adresse n - ) kopiert den Inhalt von n 2-Bytes 
langen Stellen ab Adresse 1 in den Speicher ab Adresse 2. 
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CMOVE ( Adresse 1, Adresse 2, n -) ist ähnlich. Es übertragt 
aber Einzelbytes statt 2-Bytes lange Stellen. 

Ist n in MOVE oder CMOVE negativ oder 0, geschieht nichts. Schrei¬ 
ben Sie Ihre eigenen Definitionen. 

Ein Problem kann auftreten, wenn der Bereich, aus dem gelesen 
wird, sich mit dem Block überschneidet, in dem geschrieben 
werden soll: In diesem Fall ist sorgfältig darauf zu ach.ten, von 
welcher Seite des Blocks Sie zu kopieren beginnen. 

Ein verwandtes Wort {wenn auch im ACE nicht vorhanden) ist 
FILL ( Adresse, n, Byte -), das den Speicher ab einer gegebenen 
Adresse mit n Kopien eines gegebenen Bytes füllt. 
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KAPITEL 22 

MEHRERE WÖRTERBÜCHER 


Im FORTH kann man mehrere Wörterbücher nebeneinander aufbauen. 
Jedes Wörterbuch hat seinen eigenen Namen. Anfangs, napcyh dem Ein¬ 
schalten des ACE, gibt es nur FORTH. Wenn Sie daneben weitere 

Wörterbücher festgelegt haben und ein Wort suchen, dann beschränkt 
sich die Suche auf das gerade aktive Wörterbuch. Sie können also 

z.B. Wörter mit gleichem Namen, aber unterschied! icher Bedeutung 
haben, je nachdem, welches Wörterbuch aktiv ist. 

Nehmen 5ie an, Sie wollten einen ''Spickzettel' 1 für Geschichtszahl en 
anlegen. Sie können das natürlich so tun, daß die Zahl, die Sie 

sich merken wollen, gleichzeitig das definierte Wort ist 

: 333 

Bei fssus Keilerei" 

ein Datum, das jeder kennt, der in Geschichte aufgepaßt hat. 

Es ist zwar ganz schön, daß nun 333 immer den Text " Bei Issus Kei¬ 
lerei" aufruft. Gleichzeitig aber ist 333 als normale Rechengröße 
nicht mehr zu gebrauchen. Wegen der vielen Geschichtszahlen wäre 
der ACE für das normale Rechnen bald unbrauchbar, darum FORGET 

333. 

Es ist viel sicherer, solche Spezialitäten in einem eigenen Wörterbuch 
unterzubr i ngen . Wir nennen es HISTORIE und eröffnen es mit 

VOCABULARY HISTORIE 

Es geschehen zwei Dinge: 

1. Ein Lei t wort ( "Wörterbuch-Def ini t Ions-Wort" ) HISTORIE wird defi- 
niert, dessen Aufgabe es ist, HISTORIE zu aktivieren. Dieses Wort 
ist Bestandteil des FORTH-Wörterbuches. 

2. Ein neues Wörterbuch HISTORIE wird eröffnet. Bisher enthält dieses 
Wörterbuch noch kein eigenes Wort, nicht einmal seinen eigenen 
Namen. Aber alle Wörter des FORTH-Wörterbuches sind bereits 
darin enthaften. 

FORTH ist der "Vater" von HISTORIE, weil das Leitwort von HI5T0RIE 

in FORTH eingefügt wurde. Wird in einem Wörterbuch ein Wort 
gesucht, aber nicht gefunden, dann erfolgt die weitere Suche im 

"Vater"-Wörterbuch. 

Nehmen Sie VLIST. Sie sehen die FORTH-Wörter, wie gewöhnlich. Sie 
beginnen mit dem Leitwort HISTORIE. 

Tasten Sie jetzt HISTORIE ein. Damit wird HISTORIE zum Context- Wörter- 
buch, jenes, in das wir Wörter eingeben wollen. Mit VLI5T können 
wir jetzt das Wörterbuch HISTORIE mit allen darin vorkommenden 

Wörtern anzei gen. Danach folgen die Wörter seines "Vaters", nämlich 
FORTH. Bisher gibt es dabei natürlich noch keinen Unterschied. 

Wir wollen jetzt neue Wörter in das Wörterbuch definieren. Durch die 
Eingabe seines Namens haben wir HISTORIE bereits zum Context- 

Wörterbuch gemacht. Damit können aber nur Wörter aufgerufen werden. 
Neue Wörter werden aber immer ins laufende ( Current ) Wörterbuch 
eingetragen, und das ist bisher noch FORTH. Erst mit dem Wort 
DEFINITJ0N5 wird das Context-Wörterbuch auch das Current-Wörterbuch. 
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Nachdem HISTORIE jetzt Context-und Current-Wörterbuch Ist, können 
wir unsere Zahlen eingeben. 

: 333 

Bei Issus Keilerei" 


: 1492 

." Entdeckung Amerikas" 

: 1836 

- M Erste Eisenbahn Nuernberg-Fuerth" 


Mit VLIST sehen Sie alle bisher definierten Wörter, auch die des 

FORTH-Wörterbuchs. Die Eingabe FORTH VLIST dagegen zeigt nur die 
FORTH Wörter, nicht unsere Geschichtszahlen. Im FORTH haben auch 
die Zahlen 333, 1492 und 1836 ihre ursprüngl Iche Bedeutung als 

Rechengrößen wieder. 

Wie arbeiten Wörterbücher? Jn Kapitel 20 haben wir festgestel 11, daß 

im Header eines Wortes ein Verbindungsglied enthalten ist, das auf 

das vorher definierte Wort hinweist. Das stimmt aber nicht ganz: Der 

Hinweis erfolgt vielmehr auf das zuletzt im I aufenden (current) Wörter- 
buch definierte Wort, und es können inzwischen durchaus Wörter in 
einem anderen Wörterbuch definiert worden sein. In unserem Beispiel 
hängt 1836 an 1492, und 1492 an 333, Diese Kette bildet das 

Wörterbuch HISTORIE. Durch eine besondere Art der Verbindung wird 
das Wörterbuch HISTORIE an seinen Vater FORTH angehängt. 

Wenn jetzt mit FORTH VOCABULARV wieder FORTH current wird, dann 
schließt das nächste hier definierte Wort an HISTORIE an, denn dies 
war ja das zuletzt In FORTH definierte Wort. Auf diese Werse können 

sich Wörterbücher überlappen. 

Fassen wir noch einmal zusammen; 

1. Ursprünglich existiert nur das Wörterbuch FORTH. 

2. Es können zwei Wörterbücher zugleich aktiv sein. Das Context-Wörter- 
buch wird für die Suche nach Wörtern verwendet, das Current-Wör¬ 
terbuch für die Definition neuer Wörter. 

3. VOCABULARV definiert ein neues Wörterbuch und das dazugehörige 
Leitwort. Das Leitwort ist Bestandteil seines "Vater"- (des Current-) 
Wörterbuches. 

4. Mit DEFINIT IONS wird das Context- auch zum Current-Wörterbuch. 

5. Sucht das System nach einem Wort, beginnt es die Suche im Context- 
Wörterbuch und setzt sie bei Bedarf im "Vater"-Wörterbuch fort. 
Die Suche endet letztlich im FORTH, denn FORTH ist Adam und Eva 
al leiAwörterbücher. 

Das Parameterfeld eines Leitworts hat folgenden Aufbau: 

Zwei Bytes enthalten die Adresse des Namenslängenfeldes des neuesten 
Wortes im Wörterbuch. Damit kann die Suche nach einem Wort begonnen 
werden; diese Adresse ist aber gleichzeitig auch die Verbindungsadresse 
für ein neues Wort. 

Ein Byte enthält immer 0. Dieses Byte dient 2 ur Verkettung der Wörter¬ 
bücher untereinander. Hat ein Wörterbuch einen "Nachkommen", ist 
dessen erstes (-ältestes) Wort hier verkettet. 



Zwei Bytes enthalten die Adresse der entsprechenden beiden Bytes in 
einem anderen Wörterbuch (die Bytes heißen "Wörterbuch-Verket tung" ) 
Folgt man dieser Kette, beginnend Im neusten Wörterbuch, findet man 
jeweils- das vorhergehende Wörterbuch. Im FORTH sind die beiden Bytes 
dann 0. 

Drei Variable haben mit Wörterbüchern zu tun. Die beiden ersten, 
CONTEXT und CURRENT, enthalten jeweils die Parameterfel d-Adressen 
des Context-bezw. Current-Wörterbuches. 

Die dritte Variable hat keinen Namen, aber die Adresse 15413. Ihr 
Wert ist die Adresse der beiden Bytes, die die Wörterbuch-Verkettung 
im neusten Wörterbuch enthalten. Von hier aus kann man alle Wörter¬ 
bücher der Reihe nach ansprechen. 

Sie müssen vorsichtig sein mit FORGET und LOAD. 

Eine Regel für FORGET: Vergessen Sie immer nur Wörter aus einem Wör¬ 
terbuch auf einmal. Kommen Sie mit FORGET nämlich über die Grenze 
eines Wörterbuches, geht dessen Leitwort mit verloren. Die Wörterbuch- 
Verkettungen stimmen nicht mehr. 

Auch mit LOAD geht die Verkettung verloren. 

Zusammenfassung: 

Wörterbücher - Context und Current 
Leitwörter, Verkettungen 

FORTH-Wörter FORTH, VOCABÜLARY, DEFINIT IONS, CONTEXT, CURRENT. 
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KAPITEL 23 

INNERHALB DER DOPPELPUNKT-DEFINITION 

In diesem Kapitel wird erklärt, wie wir mehr Einfluß auf Doppelpunkt- 
Definitionen bekommen können. Diese Aussagen treffen auch für Defini¬ 
tionen mit OEFJNER oder (wie wir noch sehen werden) mit COMPILER zu. 

Wird ein Wort innerhalb einer Doppelpunkt-Definition aus dem Eingabe¬ 
bereich gelesen, dann erfolgt keine sofortige Ausführung, sondern es 
wird als Teil der Definition abgespeichert. Wir befinden uns im 
Kompiler-Modus. Das heißt, daß ein Wort als Bestandteil der Defini¬ 
tion in Maschinensprache übersetzt und im Wörterbuch gespeichert wird. 

(engl .:compi Ie). 

Normalerweise befindet sich der Computer im I n terpreter-Modu s . Ein 
eingegebenes Wort wird übersetzt und sofort ausgeführt (engl •: interpret) 

Sie können aber aus einer Doppelpunkt-Definition zeitweise in den 
I nterpreter-Modus zurückschalten, wenn Sie die Wörter [ und ] be¬ 
nutzen . 

[ schaltet in den I nterpreter-Modus 
] schaltet in den Kompiler-Modus. 

Nur im I nterpreter-Modus gibt der Computer OK aus. So erinnert er 
Sie daran, in welchem Modus er gerade arbeitet. 

Sie verwenden z.B. in einer Definition zwei Zahlen und wollen sie ein¬ 
tasten, indem Sie verschiedene Zahlenbasen benutzen. Während Sie 
die Basis verändern, gehen Sie mit [ und ] in den I nterpreter-Modus. 
Nehmen wir das Wort TAB aus Kapitel 12, Übung 4 dazu. Hier kommt 
die Zahl 31 vor, die der binären 11111 entspricht. Sie können TAB 
auch so eintasten 

: TAB 

( Tabellenende) 

15388 @ - 
[ 2 BASE C! ] 

11111 

[ DEC I MAL ] 

AND SPACES 

Jetzt geben Sie ein 

LIST TAB 

Im Listing finden Sie nichts mehr von dem, was Sie im Interpreter- 
Modus eingegeben haben. 11111 ist in 31 umgewandelt worden. 

Das Wort [ ist also eine Besonderheit, denn obwohl der Computer Im 
Kompiler-Modus ist, wenn er [ antrifft, führt er es aus, anstatt es 
ins Wörterbuch zu speichern. Deshalb nennt man [ auch ein Sofort-Wort 
{eng.: immediate), ein Wort also, das immer sofort ausgeführt wird, 
auch im Kompiler-Modus. 

Sie können Ihre eigenen Sofort-WÖrter sehr leicht definieren. Dies ge¬ 
schieht zunächst wie üblich. Danach aber führen Sie das Wort 
IMMEDIATE aus. IMMEDIATE verwandelt das neueste Wort im Wörterbuch 
in ein Sofort-Wort. 
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Wenn Sie vorhatten, mehrere Wortdefinitionen in Binär- und Dezimal¬ 
schreibweise zu verwenden, könnte es nützlich sein zu definieren 

: BAS2 

2 BASE C! 


IMME Dl ATE 

: BAS 10 
DEC 1 MAL 


IMMEDIATE 

Dann ist es möglich, TAB so zu schreiben 

: TAB 

( Tabellenende - ) 

15388 0 - 

BAS 2 11111 BAS 10 
AND SPACES 

Wiederum erscheinen BAS2 und BAS 10 nicht im Listing. 

Eine Anwendungsmög I ichkei t von [ und ] ist, daß Sie Rechnungen wäh¬ 
rend einer Wortdefinition ausführen können. Darüber hinaus kann das 
Ergebnis dieser Rechnung mit dem Sofort-Wort LITERAL in die Definition 
kompiliert werden, als ob Sie es direkt eingegeben hätten. 

Wollen Sie den Bildschirm mit Punkten füllen, müssen Sie 23*32 
Punkte eingeben. Vor einem Computer zu sitzen und manuell 23*32 
ausrechnen zu sollen, ist schon eine Zumutung. Mit LITERAL können 
Sie direkt definieren 

: PUNKTE 
CR 

[ 23 32 * ] LITERAL { 23 32 *) 

0 

DO 

M 11 

LOOP 

I 

Der Kommentar ( 23 32 *) scheint zunächst überflüssig. Im Listing 
finden Sie aber keine Spur mehr von LITERAL, den Kommentar wird 
Sie wieder daran erinnern, was vorher gewesen ist. 

Wir haben bisher Wörter kennengeiernt, die Im Kompiler-Modus für 
die spätere Ausführung gespeichert werden, und Wörter, die sofort 
ausgeführt werden. Es gibt nun einige Wörter, die Beides können 
müssen. 

> hat eine sofortige Wirkung, die sofort in den Interpreter-Modus zu¬ 
rückführt. Es muß aber auch kompiliert werden, weil es das Ende 
der später auszuführenden Definition markiert. Es hat eine Kompilier¬ 
zeit-Wirkung (" In dieser Definition gibt es nichts mehr zu kompilie- 
ren TI ), und eine Laufzeit-Wirkung (" Die Definition ist abgeschlossen, 
es gibt nichts mehr 2 u tun"). 

Auch LITERAL hat eine solche Doppeifunktion. Während der Kompilierung 
wird die Zahl erarbeitet und in die Definition eingebaut, während 
des echten Ablaufs wird die kompilierte Zahl in den stack gebracht 
und verarbeitet. 
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Auch IF, THEN und DO arbeiten ähnlich. Während der Kompilierung 
wird die Struktur des Worts erarbeitet, während der Ausführung werden 
die notwendigen Sprünge über die Programmabschn i tte ausgeführt. 
Solche Wörter heiß en Komp i ler-Wörter , weil sie Dinge ins Wörterbuch 
kompi I ieren. 

Mit dem Wort COMPILER können Sie eigene Kompiler-Wörter definieren. 
Bevor wir aber erklären, was COMPILER tut, müssen wir uns ein wenig 
näher mit den Besonderheiten des Kompilierens befassen. 

Jedes FORTH-Wort hat, wie wir aus Kapitel 20 wissen, ein Codefeld 
im Header. Dessen Adresse ist die Codefeld-Adresse , die das Wort 
FIND auf dem stack ablegt. Wird das Wort in die Definition eines 
anderen Wortes kompiliert, geschieht nichts weiter, als daß seine 
Codefeld- Adresse ins Wörterbuch übernommen wird ( dazu wird ; 
benötigt). Deshalb heißt die Codefeld-Adresse auch oft Kompi I ier-Adres- 
se . 

Ein Wort, das die Komp i I ier-Adresse verwendet, ist EXECUTE ( Kompi¬ 
lieradresse - ). Es nimmt eine Kompilieradresse vom stack und führt 
das Wort aus, z.B. 

FIND DUP EXECUTE 

tut das Gleiche wie DUP. 

Eine einfache Doppelpunkt-Definition enthält in ihrem Parameterfel d 
eine ganze Liste von Kompilieradressen. Um das Wort auszuführen, 
nimmt ACE die erste dieser Adressen, sucht das zugehörige Wort und 
führt dieses aus, kehrt dann zur nächsten Kompileradresse zurück 
und so weiter. Wenn er den ; erreicht, weiß er, daß das Wort 
ausgeführt ist. 

Wenn Sie z.B. definieren 

: 2 * 

DUP + 

dann hat die Definition für 2* 


Header für 2 * 
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( DUP, + und ; sind im ROM gespeichert und ihre Parameterfel der 
sind sehr unterschied! ich). 

Diese Form ist die einfachste. Oftmals aber müssen hinter der Kompi- 
lieradresse noch weitere Informationen angeführt werden. LITERAL kom¬ 
piliert z.B. eine Zahl in die Definition. Diese Zahl wird unmittelbar 
hinter der Komp i I ierungsadresse von LITERAL gespeichert. Genauso wer¬ 
den auch direkt eingetastete Zahlen gespeichert. 

Diese Zusatzinformation heißt Operandenfeid . Kompi I leradresse und Ope¬ 
randenfeld zusammen heißen ein kompiliertes Wort . 

Ein weiteres Beispiel ist IF. Sein Operandenfel d hat zwei Bytes, die 
aussagen, wie weit zu springen ist, um über den Programmabschni tt 
IF...ELSE hinwegzukomrnen, wenn die Bedingung falsch Ist. 

Ein eigenes kompiliertes Wort erzeugen Sie, indem Sie festlegen 

1. Wie das Operandenfeld aussieht, und 

2. wie das kompilierte Wort ausyeführt wird. 

Die Festlegung erfol gt mit den zwei Wörtern COMPILER und RUNS>. Sie 
treten immer gemeinsam auf wie DEF1NER und D0ES>. 

Das Wort 2LITERAL wirkt wie LITERAL, jedoch auf vier Bytes statt 
auf zwei, es kann also auf Gleitkomma- oder doppelt lange Ganzzahlen 
angewandt werden 

4 COMPILER 2LITERAL 
SWAP , , 

RUNS 

DUP @ SWAP 2+ @ 

In der Kompi I ierzel t werden zwei Eintragungen vom stack genommen 
und mit , , ins Wörterbuch eingefügt. Dies geschieht vor RUN5> . 

Die Laufzeit-Aktivität ist der Teil nach RUNS > . Sie hinterläßt die 
Adresse des Operandenfel des auf dem stack. Damit kann man die dort 
gespeicherte vier Byte lange Zahl holen. 

Die 4 vor COMPILER sagt aus, wieviel Bytes in das Operandenfeid ge¬ 
bracht werden sollen. Wenn diese Zahl variieren kann, verwenden Sie 
-1 COMPILER, und während der Komp i i ierzei t werden die tasachlich 
benötigten Längen in die Bytes eingesetzt. So arbeiten z.B. ( und « 

Um Ihnen zu zeigen, wie 2LITERAL anzuwenden ist, wollen wir ein 
Wort schreiben, das 1/7 zu einem im stack gespeicherten Wort addieren 
sol I 

: 1/7+ 

1 . 7. F/ F+ 

Oas Wort wird natürlich viel schneller verarbeitet, wenn Sie statt 
1/7+ seinen Dezimal wert 0.142857 eingeben 

: 1/7+ 

0.142857 F+ 
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Da .es aber lästig wäre, diese Zahl vorab auszurechnen, können Sie 
einfach eingeben 

: 1/7+ 

[ 1. 7. F/ ] ( 1/7) 

2LITERAL F+ 

> 

In der Kompilierzeit wird in die Definition von 1/7+ ein kompiliertes 
Wort eingesetzt: Zunächst die eigene Kompilieradresse und dann das 
Operandenfeld mit der Gleitkommazahl. Während der Laufzeit wird die 
Zahl aus dem Operandenfeld auf den stack kopiert. 

Seien Sie vorsichtig, wenn Sie 1/7+ editieren. Der Listing-Ablauf weiß 
nichts mit dem Operandenfeld anzufangen, er ignoriert es einfach. 
Sie sehen nur 

: 1/7+ 

< 1/7) 

2LITERAL F+ 


□er einzige Hinweis auf das Operandenfeld besteht im Kommentar. 
Beim Editieren müssen Sie den Rechenvorgang für 1/7 komplett neu 
eingeben. 

Nützlich ist auch das' Wort HERE ( - Adresse). Es legt auf dem stack 
die nächste freie Adresse des Wörterbuchs ab. An diese Stelle wind 
das erste Byte eines neuen Wortes gespeichert. Sie können damit prü¬ 
fen, wie voll der Speicher inzwischen geworden ist. 

Zusammenfassung: 


Kompiler- und I nterpreter-Modus 
Sofort-Worte, Komp i I ierworte 

Kompilierte Wörter: Komp i I ieradresse und Operandenfeld 
FORTH-Wörter [, ], IMMEDIATE, EXECUTE, COMPILER, RUNS >, HERE 


Übungen: 


EXECUTE kann zusammen mit einer Kompi I ier-Adresse als gespeicherter 
Variablen eingesetzt werden. Ein Beispiel: Sie haben zwei Methoden, 
mit unwillkommenen Anfragen fertig zu werden 


: GROB 

CR ." LASSEN SIE MICH IN RUHE" 
CR ." UND HAUEN SIE AB" 

CR ." SIE DUMMKOPF" 


: NETT 

CR ." IHRE FRAGE IST SEHR INTERESSANT" 

CR ." ES WIRD MEINEM KOLLEGEN MEIER" 

CR ." EINE EHRE SEIN, SIE ZU BEANTWORTEN" 

I 

FIND NETT VARIABLE METHODE 

So, wie die Dinge jetzt stehen, enthält METHODE die Komp i I ieradresse 
von NETT. Aber wenn Sie mit dem linken Fuß aufgestanden sind oder 
Ihr Kollege den Fragesteller wieder an Sie zurückverweist, könnten 
Sie eingeben 

FIND GROB METHODE ! 

Mit METHODE @ EXECUTE 


finden Sie dann die passende Antwort. 
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Das ist zwar sehr nützlich, aber bei Verwendung von REDEFINE stellt 
es doch eine erhebliche Beeinträchtigung dar. REDEFINE ändert die 
Kompilieradresse eines Worts, aber es weiß nicht, wie es die Werte 
von Variablen wie METHODE festlegen soll. Das müssen Sie selbst tun. 
Geändert werden die Komp i I ieradressen der neueren Wörter. 

In ähnlicher Weise kann auch LOAD Kompil ieradressen verändern. Wenn 
bereits ein Wörterbuch gespeichert ist und Sie ein neues vom Band 
laden, werden alle Kompilieradressen des neuen Wörterbuches verändert. 
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Bestimmte Speicherbereiche haben definierte Aufgaben. 
Wir lassen die festgelegte Speichereinteilung folgen: 


Adressen 

Hexadezimal ” | Dezimal | I nha 11 


0 

- 1 FFF 

1 0 

1 

I 

1 

8191 

|ROM. Die gespeicherte Information 
| kann nicht überschrieben werden 
| (es sei denn, Sie bringen Ihren 

ACE zum Röntgen). Computer-Pro- 
Igramme incl . eingebaute FÖRTH- 
] Wörter. 

2000 

- 23FF 

| 8192 

1 

1 

1 

1 

1 

1 

1 

1 

1 

- 9215 

[RAM. Der gleiche Speicherinhalt 
|wie in den Adressen 2400 - 27FF. 
|Jedes dieser Bytes hat also zwei 
[Adressen. Je nach gewählter Adres- 
[se hat Lesen oder Schreiben unter- 
jschiedliche Wirkung, Die niedrigere 

I Adresse gibt FORTH-Programmen 
leine Priorität, die höhere Adresse 
(bevorzugt die Schaltkreise für die 
| Bi 1 dsch i rmsteuerung. S.Kap. 14, Üb . 1 

2400 

- 26FF 

! 9216 

1 

1 

- 9983 

|Video RAM, Er enthält das Fernseh¬ 
lbild mit dem ASCII Code jedes 
[der 24*32 = 768 Zeichen, 

2700 


9984 


1 RAM, emttlhällt Byte 0 

2701 

- 27FF 

1 9985 

- 10239 

|RAM, enthält den PAD (s.Kap.16) 

2800 

- 2BFF 

10240 

1 

1 

1 

- 11263 

[RAM, der gleiche Inhalt wie der 

I Speicherbereich 2C00 - 2FFF und 
j gleicher Auswirkung wie beim Video 

I RAM. 

2C00 

- 2FFF 

| 11264 

[ 

1 

- 12287 

(RAM, enthält Zeichensatz, die 
Punktmuster für 128 Zeichen (siehe 
[Kap.12), In diesen Speicher kann 
| nur geschrieben werden. Lesen 
| ist nicht mögl ich . 

3000 

- 3BFF 

| 12288 

1 

- 15359 

| Drei Identische Kopien des RAM 
| 3C00 bis 3FFF. 

3C00 

- 3C3F 

| 15360 

1 

1 

- 15423 

1 RAM, enthält die Systemvariablen. 

die genauere Beschreibung dieser 
(Variablen folgt unten. 

3C40 

- 3FFF 

| 15424 

1 

- 16383 

|RAM, enthält das Wörterbuch, den 
|DATA- und den RETURN-stack 
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Das Wörterbuch beginnt bei 3C40 mit dem Leitwort FORTH und fährt 
mit Ihren eigenen Wörtern fort. Sein Ende wird lediglich durch die 
Anzahl und den Umfang der gespeicherten Wörter bestimmt. Auf das 
Wörterbuch folgen 12 unbenutzte Bytes zum Schutz gegen einen Unterlauf 
(engl underflow) des stack (d.h. der stack ist völlig leer). Danach 
beginnt der stack aufsteigend. 

Der RETURN-stack beginnt bei 3FFF und wächst rückwärts in Richtung 
des DATA-stack. Wenn beide Zusammenkommen, ist kein Speicherplatz 
mehr vorhanden und der Computer meldet ERROR 1. 


| Wörterbuch | 12 Bytes I stack- * *-RETURN-stack) 


3C40 3CFF 

Mit einer Speichererweiterung (an der Rückfront aufsteckbar) heben 
Sie wesentlich mehr Platz für Programme und Stacks zur Verfügung. 
Er beginnt mit Adresse 4000 (16384) und geht bis FFFF (65535). 


Sy stem variablen 


In der nachfolgenden Liste sind neben den Hex- und Dezimaladressen 
noch eng li schspra chi ge Abkürzungen angegeben. Diese Namen haben, 
(außer wenigen fett gedruckten, wie z.B. BASE), für den ACE keine 
Bedeutung, sie sollen lediglich als Gedächtnisstütze dienen, 


Adresse 

| Name 

( Länge 

| Bedeutung 

Hex 

| Dezimal 



1 

3C00 

|15360 

[ FF-k'S 

(19 

(Arbeitsbereich für Gleitkommaar ithniet« 

3C13 

|15379 

| LISTWS 

1 & 

(Arbeitsbereich für LIST und EDIT 

3C18 

|15384 

1 

1 

1 

j R AMTOP 
' 

1 

1 

1 

1 2 

1 

1 

1 

(Die höchste Adresse im RAM. Wenn Sie 
(am Ende Platz reservieren wollen,der 
|für Wörterbuch und Stacks nicht ver¬ 
fügbar sein soll, können Sie dessen 
|Startadresse in RAMTOP einsetzen und 


I 

1 

1 

1 

1 

1 

1 

1 

IQUIT eingeben. Mit QUIT wird der 
|RETUFN-st ack gelöscht und bei der 
(Adresse aus RAMTOP neu begonnen. 

3C1A 

115386 

1 

1 

Kued 

1 

1 

1 2 

1 

1 

|Adresse des letzten Bytes für eine 
(formatierte Ausgabe im PAD (benutzt 
|durch Wörter wie #, HOLD etc.) 

3C1C 

|15388 

1 

1 

fKIHFRDS 

1 

1 

1 

1 2 

1 

1 

1 

(Cursor-(Anzeige-) Position. Die Adres- 
|se, an der das nächste Zeichen ange- 
1 zeigt werden soll (TAB in Kap.12 be¬ 
inutzt diese Variable). 

3C1E 

|15390 

I 

(INSCRN 

1 

1 2 

1 

|Startadresse der aktuellen logischen 
|Zeile im Eingabebereich 

3C20 

(15392 

(CURSOR 

1 2 

(Adresse des CURSORS im Eingabebereich 

3C22 

|15394 

1 

| ENDBUF 

1 

1 2 

1 

|Endadresse der aktuellen logischen 
(Zeile im Eingabebereich 
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Adresse 

[Name 


|Bedeutung 

Hex 

1Dezimal 

1 

| Länge 

I 

3C24 

|15396 

i 

1 

[L HALF 

i 

1 

1 2 
i 

1 

|Anfaagsadresse des Eingabebereichs. 
jüer Bereich selbst ist im Video-RAM 
(gespeichert* 

3C2S 

[15398 

1 

(KEYCOD 

i 

1 1 

1 

[ASCII Code der zuletzt gedrückten 
[Teste, 

3C27 

[15399 

1 

[KEYCNT 

1 

1 1 

1 

(Beide Systemvarlablen werden von der 
|Programmrout.Ine benutzt die das 

3C28 

j15400 

[STATrN 

1 1 

[Tastenfeld abfragt* 

3C29 

1154(31 

1 

1 

I 

[ 

Iexwp.ch 

i 

1 

1 

[ 

| 2 

j 

1 

i 

I 

[Normalerweise 0* Kann aber geändert 
[werden urr 4 auszugebenöe Daten an ein 
[bestimmtes Gerät zu address!eren (z.B. 
[Drucker}» Vergleichen Sie das folgende 
[Kapitel. 

3C2B 

115403 

1 

1 

I 

1 

(FRAMES 

[ 

1 

1 

1 

I 4 

1 

[ 

1 

! 

[Eine doppaltiänge Zahl, die die Zeit 
[vom Einschalten des ACB in l/50-Sek. 
(zählt. Kann aie Uhr benutzt werden» In 
|Übung 1 haben wir Wörter für das Stel¬ 
lten und Anzeigen der Uhrzeit angegeben 


Vorsicht! 

Bei Überlauf der Uhr Uber Hex FFFF FFFF wird die nächste Systemvariable 
XCCORO in Mitleidenschaft gezogen. BSEP und Bandoperationen unterbrechen 
den Zähler zeitweise. 

3C2F I1540? ^SOSHBD j 1 [Die von PLOT zuletzt verwendete 

J | | |X-Koordir.ate (s.Kapitel 13, Übung 1, 

| l | (DRAU. 

3C10 [15408 IYCOOHD i 1 (Die von PLCT zuletzt verwendete 

j | j |Y-Koordinate. 

3C31 [154(39 pMJEKEKST | 2 [Farameteraäresse des Leitworts der 

| (gerade verwendeten Wörterbuchs (s.Kap. 

I I I »). 

3C33 j 15411 tWtiaXI I 2 I Parameter-Adresse^ Leitwor( . 3 

j j | |des Cantext-Wörterbuchs (s.Kap.?25. 

3C35 [15413 [KSCLNK | 2 [Adresse des 4.Bytes im Parameterfeld 

| | | | fWht>hwuri«t-murg=V.OEcyl-uilary linkagej 

[ j | I iw Leitwort des zuletzt definierter, 

i | j [Wörterbuchs (s.Kapitel 22). 

303? 115415 | SEBBUT [ 2 (Adresse des Bytes, bei dem der nächste 

[ | | [Eintrag ins Wörterbuch beginnt, d.h. 

| | | [Ende des aktuellen Wörterbuchs +1. 

| j | I15415 f kann durch HEBE ausgeführt 

J [ [werden. 

3C39 (1541? (D1CT | 2 [Die Adresse des Längenfeldes im naues- 

[ [ | jten Wort des Wörterbuchs. Wenn das 

| | | [Langenfeld richtig geladen ist, kann 

1 1 | [BICT «0 sein. 
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Adresse 
Hex I Dezimal 


3C3B |15419 


3C3D 


3C3E 


15421 


15422 


Name 


SPARE 


ER! NO 


3C3F |15423 |BASE 


| Länge 1 Bedeutung __ 

| 2 |Adresse des ersten Bytes nach dem TOS, 

f |Mit 15419 @ erhalten Sie die Adresse 

| |des obersten Eintrags. In Übung 2 

| |bringen wir ein Wort, das den gesamten 

1 |Inhalt des stack anzeigt ohne ihn 

| |zu zerstören. 

| 1 |Normalerweise 255, d.h, "kein Fehler". 

| (Wenn ABORT verwendet wird kann ERR_NO 

| Jeinen Wert zwischen 0 und 127 anneh- 

| |men. Dann wird angezeigt ERROR, ge- 

| |folgt von ERR_NO 

| 1 [Zeigt den Zustand verschiedener Sys- 

( |temteile an, wobei jedes Bit eine be- 

I |stimmte Zuordnung hat. Ist Bit 2 auf 1 

| |gesetzt, zeigt es eine unvollständige 

[ |Definition am Ende des Wörterbuchs an. 

j |Mit ABORT wird die Definition entfernt 

| |Bit 3 auf 1 zeigt an, daß Ausgabedaten 

| fin den Eingabebereich übertragen wer- 

| |den sollen. Bit 4 auf 1 markiert 

j jINVISIBLE-Modus. Bit 6 auf 1 markiert. 

| |Kompiler-Modus. 

[ 1 |Zahlenbasis 


Übungen: 

1. Wörter, mit denen Sie die Uhrzeit stellen und wieder ablesen können 
: STELLEN 

{ Stunden, Minuten - ) 

BEGIN 

INKEY 0= ( Warten auf ENTER) 

UNTIL 

CR Bitte Taste betätigen" 

SWAP 60 * + ( Zeit in Minuten) 

3000 U* ( Zeit in fünfzigstel Sek . , Doppell ange) 

BEGIN 

( Warten auf Tastendruck) 

IN KEY 
UNTIL 
0 15403 ! 

15405 I 15403 ! 

(In Übung 5 erfahren Sie den Trick, mit dem wir hier arbeiten müssen) 

: MINSEC 

( Sekunden oder Minuten doppelt lang - Minuten oder 
Stunden einfach lang) 

( Schreibt Sekunden oder Minuten in den PAO) 

60 U/MOD 5WAP 

0 # # DROP DROP ( Sekunden oder Minuten) 

ASCII : HOLD 


Fortsetzung Folgeseite 
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ZEIT 

( zeigt mit formatierter Ausgabe an) 

15403 @ 15405 @ 

OVER OVER D+ ( hundertstel Sekunden) 

<# # # ( Sekundenbruchteile) 

ASCII . HOLD ( Im stack jetzt Zeit in Sekunden) 

MINSEC ( Sek .anzeigen, Zei t in Minuten im stack lassen) 
0 MIN5EC ( Minuten anzeigen, Stunden des stack) 

0 #S #> TYPE 


2. Anzeige im stack 

: .S 

15419 @ HERE 12 + 

I Anfang, Ende) 

OVER OVER - 

IF ( stack nicht leer) 

DO 

I § . 2 
+LOOP 
ELSE 

DROP DROP 
THEN 

3. Geben Sie ein 

: SYSVAR 

( zeigt ständig alte Systemvariablen an) 

CLS 

BEGIN 

0 0 AT 15360 80 TYPE 

0 

UNTIL 

> 

Sie sehen sofort, daß FRAMES ständig zählt. Die zweite sich 
ändernde Variable ist KEYCNT. Links davon steht KEYCOD. 5ie 
zeigt Daten an, wenn Sie eine Taste betätigen. Am Ende erkennen 
Sie den Header von FORTH. 

Warum flackert die Foigezeife alle 5 Sekunden? (Hinweis: Was ge¬ 
schieht, wenn das zweite Byte von FRAMES den Wert 13 annimmt, 
den ASC I I-Code für Zeilenvorschub?) 

4. Der Zähler FRAMES, der die Wechsel des FernfehbiIdes zählt, wird 

nicht genau jede 1/50 Sekunde weitergeschaltet, sondern jede 

624/625 fünfzigstel 5ekunde. Das Wort TIME gewinnt dadurch jedesmal 
in 625 Sekunden eine Sekunde, pro Tag etwa 2 1/2 Minuten. Für 
eine korrekte Zeitangabe muß man dies korrigieren. 

5. Während Sie FRAMES mit 

15403 e 15405 @ 

lesen, konnte das kleinerwertige Byte gerade den Wert 65535 (d.h. 
sein Maximum) haben. Während des Lesevorgangs wird FRAMES wei¬ 
tergezählt: Die Bytes ab 15403 werden zu 0, und die Bytes ab 
15405 um 1 erhöht. Ihre Zahl ist infolgedessen um 65535 zu hoch 

(etwa 20 Minuten). Das kann Ihnen sogar während der Ausführung 
von @ passieren. Sie können diesen bösen Fehler umgehen, indem 
Sie FRAMES zweimal lesen, und den kleineren der beiden Werte neh¬ 


men . 



Etwas ähnliches kann auch in STELLEN geschehen. Wir setzen 
zunächst die zwei Bytes bei 15403 auf 0, so daß wir keine 
Überschneidung mit den Werten erhalten, die wir dann eingeben. 

Im Kapitel 20 haben wir festgestel 11, daß bei Verwendung von 

DEFINER ein Fehler während der Definition eines anderen Worts die¬ 
ses halbdefinierte Wort im Speicher stehen läßt. Deshalb brauchten 

wir auch in Kapitel 21 das Wort NACHRICHT, falls ein Fehler wäh¬ 

rend der Bereichsdefinition aufgetreten wäre. 

Bit 2 in FLAGS erzwingt die Löschung der teilweisen Definition, 

wenn ABORT ausgeführt wird. Das Wort NACHRICHT hat folgende Form 

: NACHRICHT 

( setzt Bit 2 von FLAGS auf 1 und bricht ab) 

15422 C@ 4 OR 15422 C! ABORT 
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MASCHINENCODE 
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Man könnte nach allem Vorangegangenen meinen, daß den ACE ein Com¬ 
puter ist, der FORTH versteht. In Wahrheit hat er keine Ahnung, 
was FORTH ist. Sein Herz ist ein Mikroprozessor, ein Schwerarbeiter, 
der alles tut, was es zu tun gibt: Er fragt die Tastatur ab, 
übersetzt die Eingabe, führt sie aus und gibt die Ergebnisse wieder 
aus. 

Der Mikroprozessor wird auch CPU (engl.: Central Processing llnit^ 
Zentraleinheit) genannt. Seine Arbeitsanweisungen entnimmt er dem ROM. 

Diese Anweisungen können (natürlich) nicht in FORTH geschrieben wer¬ 
den. Sie sind vielmehr in der Maschinensprache festgelegt, der einzigen 
Sprache, die der Prozessor wirklich versteht. Jeder Befehl ist in Bytes 
versch I ü sse 11. Beim ersten Einschalten muß der Computer zunächst 
ganz am Anfang beginnen. Er holt sich ein Byte aus Adresse 0, 
führt den darin verschlüsselten Befehl aus, kommt danach zum näch¬ 
sten und wird so vom festgelegten Ablauf geführt. Ir den verschlüssel¬ 
ten Befehlen ist auch definiert, wie FORTH-Wörter zu interpretieren 
und auszuführen sind. 

Wollten wir uns mit dem Z80-Maschinencode ausführlich befassen, wür¬ 
den wir ein weiteres Buch dieses Umfangs füllen. Darum empfehlen wir, 
bei Interesse sich ein Buch zu diesem Thema zu beschaffen. Wenn Sie 
sich aber mit den folgenden Ausführungen begnügen wollen, dann dür¬ 
fen Sie nicht erwarten, alles zu verstehen. 

Das Programmieren in Maschinensprache hat vor allen anderen Sprachen 
drei Vorteile: Die Programme sind schneller, brauchen weniger Platz, 
und sie kommen in die verstecktesten Ecken des Computers. FORTH ist 
in allen drei Bereichen schon sehr gut, so daß Sie nicht unbedingt 
etwas anderes brauchen. Aber manchmal kann die Maschinensprache 

doch recht nützlich sein. 

Um die Maschinensprache einzusetzen, brauchen Sie das FORTH-Wort 
CALL ( Adresse —). 

CALL nimmt die Adresse eines Maschinencodes vom stack und führt 

den dort verschiüssel ten Befehi aus. Oies dauert solange, bis es 

einen Befehl jp (iy) findet. (Jeder Befehl wird in zwei Formen 

dargestel It: einmal in Maschinencode, zum anderen auch lesbar in 
einer mnemotecnnischen Form, also einer Gedächtnisstütze, jp (iy) ist 
diese mnemotechnische Form). Der Maschinencode für jp (iy) besteht 
aus zwei Bytes, 253 und 233 (s.Anhang A). 

Am einfachsten läßt sich der Maschinencode im Parameterfel d eines 
FORTH-Worts unterbri ngen . Dafür benutzen wir ein Def in i tionswort 

DEFINER CODE 
DOES> 

CALL 


Die Aufgabe eines Worts, das mit CODE definiert wird, ist es, den Ma¬ 
schinencode in seinem Parameterfcld ablaufen zu lassen. Das Feld 
wird mit C, erzeugt. 
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Wir geben ein Beispiel: Der Maschinenbefehl hal t (Code 118} hält den 
Prozessor an, bis er ein Signal i nterrupt erhält. Im ACE gibt der Com¬ 
puter dem Prozessor jede fünfzigstel Sekunde einen Interrupt, halt kann 
für terminierte Unterbrechungen benutzt werden. 

Sie brauchen dazu den Maschinencode 
halt 118 

jp (iy) 253,233 

Bringen wir also diese drei Bytes in das Parameterfel d eines Wortes 

HALT. 

CODE HALT 118 C, 253 C, 233 C, 

Wenn Sie jetzt HALT ausführen, ruft sein Aktionsteil diesen Maschinen¬ 
code mit CALL auf: Jetzt können wir PAUSE definieren 

: PAUSE 

( Länge der Pause In 1/50 Sekunden - ) 

0 

DO 

HALT 

LOOP 

Wenn Sie schon etwas über die Z80-Maschi nensprache wissen, werden 
Sie es vielleicht für nützlich halten, mehr über die Restart-Befeh I e 
zu erfahren: 

rst 8 (Code 207) gibt ein Zeichen aus dem Register A aus. Normaler¬ 
weise geht dies auf den Bildschirm. Sie können dies aber dazu be¬ 
nutzen, ein externes Gerät anzusprechen, in dem Sie die Systemvariable 
EXWRCH aktivieren (s.Kapitel 24). Dieser Restart benutzt das Register 
A und die H i If sregi ster B,C,D,E,H und L. 

rst 16 (Code 215) legt das Regrsterpaar DE auf den stack und verwen¬ 
det die Register H und L. 

Im Gegensatz zu anderen FORTH-Sy stemen im Z80-Prozessor verwendet 
ACE den Maschinen-stack als RETURN-stack und baut sich den DATA- 
stack gesondert auf. 

rst 24 (Code 233) überträgt den TOS in die Register DE und 
verwendet dazu Register H und L. 

rst 32 (Code 231) ist im Wesentlichen ABORT. Auf den Restartbefehl 
sollte ein Byte mit Fehlercode folgen; dieses wird in die Sy stemvari able 
ERR_NO angelegt, bevor ABORT ausgeführt wird. 

Einige Warnungen an Fachleute: 

1. Die Register IX und IY dürfen benutzt werden, ihr ursprüngl icher 
Inhalt muß aber am Ende wieder zurückgeschrteben werden (beach¬ 
ten 5ie später die Bemerkungen zu IY). Alle übrigen Register stehen 
zur freien Verfügung, aber machen Sie keinen Unsinn mit dem stack- 
Pointer SP. 

2. REDEFINE und LOAD können Wörter im Wörterbuch transport ieren 
(s.Kapitel 23, Übung 1). Wenn Sie Maschinenbefehle im Wörterbuch 
halten, wie oben mit HALT gezeigt, müssen diese entweder verschieb¬ 
lich (relocatab le) sein, oder Sie müssen sehr vorsichtig mit 
REDEFINE und LOAD umgehen. 
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Die Tatsache, daß ein Programm in Maschinencode, das mit CALL aufge¬ 
rufen wird, mit jp {i y) endet, trifft auch für alle in Maschinencode 
definierten FORTH-Wörter zu. Solche Wörter heißen Stammwörter . Es gibt 
viele 5tammwörter unter den 142 FORTH-WÖrtern im ROM. Durch Verän¬ 
derung des Registers IV können Sie das Ende jedes Stammworts beein¬ 
flussen . 

Im Normalfalf weist das Register IY auf bestimmte Maschinencodes hin, 
die Fehler prüfen, bevor die Arbeit fortgesetzt wird. Geprüft werden: 
Space (Abstand zwischen DATA- und RETURN-stack), stack underflow 
{Datenunterl auf im stack), und die BREAK-Taste. Sie können Zeit ge¬ 
winnen, indem Sie IY immer auf das nächste auszuführende Wort hin- 
weisen lassen. Zwei Wörter, FAST und SLOW helfen Ihnen dabei. 

FAST ( - ) schaltet alle Fehlerprüfungen aus ch werden die 

Programme um ca. 25 % schneller. 

SLOW ( - ) schaltet die Fehlerprüfungen wieder ein. 

Denken Sie aber immer daran: FAST ist gefährlich . Sie sollten es nur 
im Zusammenhang mit sorgfältig getesteten Programmen benutzen. Ins¬ 
besondere wird natürlich auch BREAK nicht mehr abgefragt. 

Zusammenfassung: 

Z80-Maschi nencode 
FORTH-Wörter CALL, FAST, SLOW 

Übungen: 

1. Arbeiten Sie CODE weiter aus, damit Sie mit seiner Hilfe das Ma- 
schi nencode-Parameterfeld einfacher aufbauen können. Sie könnten 
z.B. die Bytes des Maschinencodes in den stack stellen und ihm 
sagen, wieviele vorhanden sind. Vielleicht lassen Sie jp (iy) auto¬ 
matisch einsetzen. Im FORTH wäre es kein Problem, ein komplettes 
Wörterbuch ASSEMBLER anzulegen, das Ihnen erlaubt, die Abkürzun¬ 
gen der Maschinencodes statt der Zahlenkomb inat Ionen zu verwen¬ 
den. Im ASSEMBLER ist dann z.B. HALT definiert als 

: HALT 
118 C, 

» 

Mit CODE würde ASSEMBLER zum Context-Wörterbuch. 

2. Ändern Sie PAUSE so, daß die Pause bei Tastendruck beendet wird. 

3. Wenn Sie wissen wollen, wie das Codefeld eines Worts funkt ion iert, 
können wir es jetzt erklären. Es ist die Adresse einiger Befehle 
in Maschinencode, die bei Ausführung des Worts ablaufen. Sie bilden 
das komplette Wort (bei Stammwörtern), oder sie legen fest, wie 
eine Folge von kompilierten FORTH-Wör lern ablaufen soll (bei Dop¬ 
pelpunkt-Definitionen ). 

In einem Stammwort ist das Codefeld die Adresse des Parameterfel des 
und das Parameterfeld enthält den Maschinencode. DUP ist ein 
Stamm wort, deshalb führen 

FIND DUP 2+ CALL 

und 

FIND DUP @ CALL 

beide DUP aus. Natürlich geht das auch einfacher. 
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WIR BAUEN DEN ACE WEITER AUS 
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Über die Steckerleisten an der Rückseite kann zusätzlich Elektronik 
( Per fpher ie ) an den ACE angeschlossen werden. Normalerweise verwendet 
man dazu fertige Geräte, wie z.B. die von uns lieferbaren Zusatzspei¬ 
cher oder einen Drucker. Es gibt auch Programme, mit denen solche 
Peripheriegeräte gesteuert werden können. 

Sie können aber auch selbst Peripheriegeräte aller Art bauen und an¬ 
schließen. Dazu müssen Sie nur wissen, wie ihr Gerät mit Ihrem Pro¬ 
grammen zusammenanbei tet und wre es physisch angeschlossen werden 
muß . 

Zunächst zur Kommunikation. Der Z80-Prozessor unterhält sich mit 

dem Rest der Welt, indem er Spannungen über Leitungen anbietet. 

Grob gesagt, gibt es zwei Spannungszustände, hoch oder niedrig, die 
als 0 oder 1 i n terpretiert werden können. Acht Leitungen in einer 

Gruppe stellen 1 Byte dar. Es gibt eine solche Gruppe, die wir den 
Datenbus nennen. Sechzehn weitere Leitungen können eine Ganzzahl 
bilden, wir nennen diese Gruppe den Adreßbus. 

Der Prozessor liest und schreibt damit Speicherinhalte. So I f ein Byte 

in den Speicher geschrieben werden, stellt er die Adresse in den 
Adreßbus und die Information in den Datenbus und gibt ein Signal 
aus, das den Speicher veranlaßt, die Daten in die angegebene 
Adresse zu übernehmen. Entsprechend verfährt er auch beim Lesen 
eines Bytes. 

Ganz ähnlich verfährt er auch bet der Kommunikation mit Peripherie¬ 
geräten. Es gibt 65536 l/O-Adressen (für Input/Output), die Ports ge¬ 
nannt werden. Adressierung, Bereitstellen eines Bytes sowie das Signal 
an das Peripheriegerät werden genauso durchgeführt wie beim Speicher. 
Die Peripherie muß diese Signale überwachen. 

Für den Kontakt zu den 1/0-Ports stehen zwei Wörter zur Verfügung: 
IN und OUT. Sie sind gleichbedeutend mit den Spei cherwortern C@ 
und C!, 

IN { Adresse - Byte) liest ein Byte von dem Port mit der gegebenen 
Adresse. 

OUT ( Byte, Adresse - ) schreibt ein Byte zu dem Port mit der gege.- 
benen Adresse. 

Vermeiden Sie bei der Festlegung von Por t-Adressen für Ihre Geräte 
die bereits vom ACE benutzten Adressen. Der Computer verwendet die 
geraden Zahlen, die ungeraden stehen zu Ihrer Verfügung. 

Wir haben zwei einfache Anwendungen in einem Paket zusammengefaßt. 
Die eine steuert eine Verkehrsampel , die andere schaltet ein Relais 
ein und aus. Sie brauchen nur einen l/O-Port (Adresse 1} und erwarten 
vom Datenbus die folgende Codierung 

1 Rotes Licht einschalten ) 

2 Gelbes Licht einschalten ) 

3 Rot und gelb einschalten 

4 Grün einschalten 
8 Relais einschalten 
0 Alles ausschalten 


) 

) und alle anderen Signale aus 
) 
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Dazu brauchen wir folgende FORTH-Wörter 

: CHANGE 

( Daten -) 

{ schreibt an I/O Port 1) 

1 OUT 


: ROFF 
( - ) 

( schaltet Relais aus) 

0 CHANGE 


: RON 
( -) 

( schaltet Relais ein) 
8 CHANGE 


: WA IT 

( Verzögerung - Verzögerung ) 

DUP 0 

DO 

LOOP 


DEFINER LICHT 
{ Lampencode -) 

C, 

OOES> 

( Adresse des Lampencodes - ) 

C@ CHANGE WA IT 


1 LICHT ROT 

2 LICHT GELB 

3 LICHT RT&GB 

4 LICHT GRUEN 

: FOLGE 

( Verzögerung - Verzögerung) 

ROT RT6GB GRUEN GELB 


: ABLAUF 

( Verzögerung - Verzögerung) 

BEGIN 

FOLGE 0 
UNTIL 


10000 ABLAUF durchläuft ständig die Ampelschaltung und laßt jede Far¬ 
be während der Warteschleife von 10000 LOORs eingeschaltet. 


Dazu zeigen wir Ihnen einen Schaltplan für die Elektronik: 
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Traffic Ligh t Con troff er Use 2 N3904 Transistors 



The Signals lo this circuitry (Al, IORQ and so on) need to be connected to the 
Computer through an edge connector. a connector that clips over the back edge of 
the Circuit board. Here is the arrangement of the Signals on the Computer. 


-R)—H—I i 1 


I I t I II 1 I 


Wir lassen noch ein Beispiel für Input folgen. Es tastet 6 Schalter 
ab, von denen jeder ein- (1) oder ausgeschaltet (0! sein kann. Das 
gelesene Byte bringt die Information über die jeweilige Schalterstellung 
in 6 verschiedenen Bits 

OEFINER SCHALTER 

{ Bitwert -) 

C, 

DOES> 

( Adresse des Bitwerts - MERKER) 

( hinterläßt 1 für geschlossenen, 0 für offenen Schalter) 
C@ 1 IM AND 0= 0= 

1 SCHALTER S0 

2 SCHALTER S1 
4 SCHALTER S2 
8 SCHALTER S3 

16 SCHALTER S4 
32 SCHALTER S5 

Oie Wörter S0 bis 55 prüfen die entsprechenden Schalter und setzen 
einen MERKER im stack, i für den geschlossenen Schalter. 5cha!ter 0 
kann als Morsetaste benutzt werden. 


: MORSE 
BEGIN 
S0 
IF 

100 10 BEEP 
THEN 

0 

UNTIL 
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Hier ist ein Wort CHECK, das prüft, ob alle Schalter geschlossen 
sind, und ein anderes, ALARM, das ein Signal erzeugt, wenn dies 
nicht der Fall ist 

: CHECK 

( - MERKER) 

1 IN 63 AND 63 = 


: ALARM 
BEGIN 

CHECK 0= 

IF 

100 1000 BEEP 
THEN 
0 

UNTIL 


Wir haben wieder 1/0 Adresse 1 verwendet. Dazu der Schaltkreis 


Switch detecior 


+5V 0V 



741S368 


Die Schalter S2 bis S5 sind genau wie die Schalter S0 und S1 mit einem 
1 k-Widerstand ausgelegt und mit den Stiften 6, 10, 12 und 14 verbun¬ 
den . 

Unsere Peripherie hat einen I/O Port mit der Nummer 1 benutzt. Peri¬ 
pheriegeräte können aber auch Speicheradressen verwenden, sie heißen 
dann memory-mapped (speichergebundene) Peripheriegeräte. Es ist da¬ 
rauf zu achten, daß sie nicht SpeicherpIatz benutzen, der intern benö¬ 
tigt wird (s.Kapitel 24), Alle geraden I/O Port-Adressen sind für die 
interne Verwendung des ACE reserviert, auch wenn er nur acht davon 
benutzt, nämlich (in Hex) FEFE, FDFE, FBEE , F7FE, EFFE, DFFE, BFFE 
und 7FFE, Das n iedr igerwert r ge Byte ist immer FE. Das höherwertige 
Byte hat Immer ein Bit 0 und alle anderen 1. 

Wird von einem dieser Ports gelesen, dann wird 

a) eine halbe Reihe der Tastatur abgefragt. Welche Hälfte dies ist, 
bestimmt die 0 im höherwertigen Teil der Port-Adresse, Die niedri- 
gerwertigen 5 Bits zeigen, ob eine Taste gedrückt ist (0) oder nicht 
( 1 ). 

b) Das Signal am Stecker EAR wird in Bit 5 gelesen. 

c) Die Lautsprechermembran wird eingeschaltet. 

Wird an einem dieser Ports geschrieben dann 

- wird Bit 3 der Daten an den Stecker MIC übergeben, 

- der Lautsprecher ausgeschaltet. 
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Zusammenfassung: 

I/O Ports, Port-Adressen 

FORTH-Wörter IN, OUT 

Übungen: 

1. Überarbeiten Sie das Wort CHANGE, so daß es anstatt externe 
Schaltungen zu betreiben, etwas auf dem Bildschirm anzeigt. 

2. Geben Sie ein 

: KRACH 

[ 16 BASE C! ] 

BEGIN 

FE FE IN FE FE OUT 0 
UNTIL 

SchreckI ich! 

Warum ändert sich der Ton, wenn Sie SHIFT drücken? {Denken Sie 
daran, daß der Computer ständig auf BREAK prüft). 

3. Verwenden Sie das Relais im Verkehrsampel-Spiel , um Lichter zu 
schalten. Noch besser, wenn Ihr Kassettenrecorder eine Buchse 
hat. über die ein Mikrofon ein- und ausgeschaltet werden kann, 
dann versuchen Sie dies mit dem Relais zu tun. 

4. Die Signale am Ausgang der Schaltplatine sind weitgehend für 
diese Art der Z80 Computer Standardisiert, sie können aber von 
anderen Typen abweichen. Viele Zusätze zum Sinclair ZX81 arbeiten 
auch mit dem ACE, wenn Sie die en tsprechenden Anschlüsse mi tein- 
ander verdrahten. Für diesen Fall ist es arn zweckmäßigsten, 
einen Adapter mit einer Steckerleiste für den ACE und einer 
gedruckten Schaltung für den Anschluß des Zusatzgerätes zu bauen 
und dazwischen die Verdrahtung vorzunehmen. 





cs 


The RAM C.S. and ROM C.S. lines on the ZX81. and the WE on the Ace, don't need 
connecting 
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DER 

ZEICHENSATZ 



Code 

Zeichen 

Hex 

Z30 Assembler 

-nach CB 

-nach ED 

0 

neue Zeile 

00 

nop 

rlc b 


1 

) 

01 

Id bc ,NN 

rlc c 


2 

) 

02 

ld(bc),a 

rlc d 


3 

) 

03 

ine. bc 

rfc e 


4 

) 

04 

inc b 

rlc h 


5 

) 

05 

dec b 

rlc 1 


6 

) 

06 

Id b,N 

rlc (hl) 


7 

) nicht verwendet 

07 

rica 

rlc a 


8 

) 

08 

ex af,af‘ 

rrc b 


9 

) 

09 

add hl ,bc 

Id a,(bc) 

rrc c 


10 

) 

0A 

rrc d 


1 1 

) 

0B 

dec bc 

rrc e 


12 

) 

0C 

irc c 

rrc h 


13 

Wagenrückl auf 

00 

dec c 

rrc 1 


14 

) 

0E 

1 c c,N 

rrc (hl) 


15 

) nicht verwendet 

0F 

rrca 

rrc a 


16 

■ 

10 

djnz DIS 

rl b 


17 

B 

11 

Id de,NN 

rl c 


18 

a 

12 

Id {de),a 

rld 


19 

B 

13 

inc de 

rl e 


20 

p 

14 

i nc d 

r 1 h 


21 

El 

15 

dec d 

rl 1 


22 

0 

16 

Id d,N 

rl ( hl ) 


23 

H 

17 

rla 

rl a 


24 

) 

18 

jr DIS 

rr b 


25 

) 

19 

add h 1 ,de 

rr c 


26 

) 

1A 

Id a, (de) 

rr d 


27 

) nicht verwendet 

1B 

dec de 

rr e 


28 

) 

IC 

inc e 

rr h 


29 

) 

ID 

dec e 

rr 1 


30 

) 

IE 

Id e,N 

rr (hl) 


31 

) 

1 F 

rra 

rr a 


32 

SPACE 

20 

jr nz,DIS 

sla b 


33 

t 

21 

Id hl ,NN 

sla c 


34 

1» 

22 

Id (NN ) ,hl 

sla d 


35 

# 

23 

inc hl 

sla e 


36 

$ 

24 

inc h 

sla h 


37 

% 

25 

dec h 

sla 1 


38 

& 

26 

Id h,N 

sla (hf) 


39 

' 

27 

daa 

sla a 


40 

( 

28 

j r z , D 1S 

sra b 


41 

) 

29 

add hl ,hl 

Id hl ,(NN) 

sra c 


42 

* 

2A 

sra d 


43 

+ 

2B 

dec h 1 

sra e 


44 

» 

2C 

inc 1 

sra h 


45 


2D 

dec 1 

sra f 


46 

. 

2E 

Id 1, N 

sra (hl) 


47 

/ 

2F 

cpl 

sra a 


48 

0 

30 

Jr nc,DIS 



49 

1 

31 

Id spjNN 

Id (NN) ,a 



50 

2 

32 



51 

3 

33 

inc sp 



52 

4 

34 

inc (hl) 



53 

5 

35 

dec (hl) 



54 

6 

36 

Id {hl) ,N 



55 

7 

37 

sef 



56 

8 

38 

jr c,D IS 

srl b 


57 

9 

39 

add hl ,sp 

srl c 
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Code 

Zeichen 

Hex 

Z80 Assembler 

-nach CB 

-nach ED 

58 


3A 

Id a,(NN) 

srl 

d 


59 

j 

3B 

dec sp 

sr! 

e 


60 

< 

3C 

S nc a 

srl 

h 


61 

= 

3D 

dec a 

srl 

1 


62 

> 

3E 

Id a,N 

srl 

(hl) 


63 

■? 

3F 

ccf 

srl 

a 


64 


40 

Id b,b 

bit 

0,b 

in b, (c) 

65 

A 

41 

Id b,c 

bit 

0,c 

out (c),b 

66 

B 

42 

Id b, d 

bit 

0 ,d 

sbc h\ y öc 

67 

C 

43 

Id b,e 

bi t 

0 ,e 

Id (NN),bc 

68 

D 

44 

Id b, h 

bit 

0 , h 

reg 

69 

E 

45 

Id b, 1 

bit 

0,1 

retn 

70 

F 

46 

Id b , ( h 1 ) 

bit 

0 , ( h 1 ) 

im 0 

71 

G 

47 

Id b ,a 

bi t 

0,a 

Id i ,a 

72 

H 

48 

Id c,b 

bit 

1 , b 

in c,(c) 

73 

1 

49 

Id c,c 

bi t 

1 ,c 

out (c),c 

74 

J 

4A 

Id c,d 

bit 

1 ,d 

ade h 1 ,bc 

75 

K 

4B 

Id c,e 

bit 

1 ,e 

fd bc, (NN) 

76 

L 

4C 

Id c,h 

bit 

1 ,h 


77 

M 

4D 

Id c, 1 

bit 

1,1 

reti 

78 

N 

4E 

Id c, (hl ) 

b i t 

1 ,(hl ) 


79 

0 

4F 

Id c,a 

bit 

1 , a 

Id r,a 

80 

P 

50 

Id d,b 

bi t 

2 ,b 

in d , (c) 

81 

Q 

51 

Id d ,c 

bi t 

2,c 

out (c), d 

82 

R 

52 

Id d,d 

bit 

2,d 

sbc hl ,de 

83 

S 

53 

Id d ,e 

b i t 

2,e 

[ d (NN),de 

84 

T 

54 

Id d T h 

b i t 

2,h 


85 

U 

55 

Id d, 1 

bit 

2,1 


86 

V 

56 

Id d , ( h 1) 

b i t 

2,(hl) 

i m 1 

87 

w 

57 

Id d ,a 

b 11 

2,a 

Id a, i 

88 

X 

58 

Id e,b 

b i t 

3, b 

in e, (c) 

89 

y 

59 

Id e,c 

bi t 

3,c 

out (c) , e 

90 

z 

5A 

Id e,d 

bit 

3 ,d 

ade hl,de 

91 

[ 

5B 

Id e,e 

bit 

3,e 

Id de,(NN) 

92 

\ 

SC 

Id e, h 

bit 

3,b 


93 

] 

5D 

Id e, 1 

bit 

3,1 


94 

t 

5E 

Id e , ( hl ) 

b it 

3,(hl) 

im 2 

95 


5F 

Id e,a 

bit 

3,a 

Id a,r 

96 

£ 

60 

Id h,b 

bit 

4,b 

in h, (c) 

97 

a 

61 

td h } c 

b i t 

4 ,c 

out (c),h 

98 

b 

62 

Id h T d 

bit 

4,d 

sbc hl ,hl 

Id (NN),hl 

99 

c 

63 

Id h ,e 

bit 

4,e 

10® 

d 

64 

Id h,h 

bit 

4,h 


101 

e 

65 

Id h, 1 

bit 

4,1 

4,(hl) 


102 

f 

66 

Id h , ( hl } 

b i t 


103 

9 

67 

Id h,a 

bit 

4,a 

rrd 

104 

h 

68 

Id 1 ,b 

bit 

5, b 

in t,(c) 

105 

i 

69 

Id 1 ,c 

bi t 

5 ,c 

out (c), 1 

106 

j 

6A 

Id 1 , d 

bit 

S,d 

ade hl , h 1 

Id h 1 , (NN ) 

107 

k 

6B 

Id 1 ,e 

bit 

5,e 

108 

1 

6C 

Id l,h 

bit 

5, h 


109 

m 

6D 

Id 1 ,1 

Id 1,{hl) 

bi t 

5,1 


1 10 

n 

6E 

bi t 

5,(hl) 


1 1 1 

o 

6F 

Id 1 ,a 

bit 

5,a 

rf d 

11 2 

P 

70 

Id (hl) ,b 

bit 

6, b 

in f f (c) 

113 

q 

71 

Id (hl),c 

bi t 

6,c 


114 

r 

72 

Id { hl),d 

bi t 

6,d 

sbc hl,sp 
id (NN),sp 

115 

s 

73 

Jd (hl) ,e 

b i t 

6,e 

116 

t 

74 

Id (hl)>h 

bit 

6,h 


117 

u 

75 

Id {hl), 1 

bit 

6,1 
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Code 

Zeichen 

Hex 
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-nach CB 

-nach ED 

118 

V 

76 

hal t 

bi t 

6,(Hl) 


119 

w 

77 

Id (h1)ja 

bit 

6,a 


120 

X 

78 

Id a,b 

b i t 

7, b 

in a , ( c) 

121 

y 

79 

Id a ,c 

b i t 

7, c 

out (c) ,a 

122 

z 

7A 

Id a,d 

bit 

7,d 

ade hl,sp 

123 

{ 

7B 

Id a,e 

bit 

7,e 

Id sp,(nn) 

124 


7C 

Id a,h 

bit 

? , h 


125 

) 

7D 

Id a, 1 

Id a,(hl) 

bit 

7,1 

7,(hl ) 


126 

'V 

7E 

bit 


127 

© 

7F 

Id a, a 

bi t 

7,a 

0, b 


128 

) 

80 

add a,b 

res 


129 

) 

81 

add a,c 

res 

0,c 


130 

) 

82 

add a,d 

res 

0 ,d 


131 

) 

83 

add a,e 

res 

0 ,e 


132 

) 

84 

add a,h 

res 

0, h 


133 

) 

85 

add a, 1 

res 

0,1 


134 

) 

86 

add a , ( h!) 

res 

0 , ( hl ) 


135 

) nicht verwendet 87 

add a,a 

res 

0, a 


136 

» 

88 

ade a,b 

res 

1,b 


137 

) 

89 

ade a,c 

res 

1 ,4 


138 

) 

8A 

ade a,d 

res 

1 ,d 


139 

) 

8B 

ade a,e 

res 

1 ,e 


140 

> 

8C 

ade a,h 

res 

l.h 


141 

) 

8D 

ade a T 1 

res 

1,1 


142 

) 

8E 

ade a, { hl) 

res 

1 ,(hl ) 


143 

) 

8F 

ade a,a 

res 

1 ,a 


144 

□ 

90 

sub b 

res 

2,b 


145 

B 

91 

sub c 

res 

2 ,c 


146 

E 

92 

sub d 

res 

2,d 


147 

H 

93 

sub e 

res 

2,e 


148 

□ 

94 

sub h 

res 

2,h 


149 

a 

95 

sub 1 

res 

2,1 


150 

s 

a 

96 

su b (hl) 

res 

2,(hl) 


151 

97 

sub a 

res 

2, a 


152 

) 

98 

sbc a,b 

res 

3, b 


153 

) 

99 

sbe a,c 

res 

3 ,c 


154 

) 

9A 

sbc a,d 

res 

3,d 


155 

) nicht verwendet 9B 

sbc a,e 

res 

3,e 


156 

) 

9C 

sbc a,h 

res 

3, h 


157 

) 

90 

sbc a,1 

res 

3,1 


158 

) 

9E 

sbc a,(hl) 

res 

3,(hl) 


159 

) 

9F 

sbc a,a 

res 

3,a 


160 


A 0 

and b 

res 

4, b 

Idi 

161 

inverse ! 

Al 

and c 

res 

4 ,c 

epr 

162 

inverse " 

A2 

and d 

res 

4,d 

ini 

163 

inverse #= 

A3 

and e 

res 

4,e 

outi 

164 

inverse $ 

A4 

and h 

res 

4,h 


165 

inverse % 

A5 

and 1 

res 

4,1 


166 

inverse £# 

A6 

and (hi) 

res 

4,(hl) 


167 

inverse ' 

A7 

and a 

res 

4,a 


168 

inverse ( 

A8 

xor b 

res 

5,b 

Idd 

169 

inverse ) 

A9 

xor c 

res 

5,c 

cpd 

170 

inverse * 

AA 

xor d 

res 

5,d 

ind 

171 

inverse + 

AB 

xor e 

res 


outd 

172 

inverse , 

AC 

xor h 

res 

5,h 


173 

inverse - 

AD 

xor 1 

res 

5,1 

5,(hl) 


174 

inverse . 

AE 

xor (hl ) 

res 


175 

inverse / 

AF 

xor a 

res 

5, a 


176 

inverse 0 

B0 

or b 

res 

6,b 

Idi r 
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Zeichen 


Hex 
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-nach CB 

-nach ED 

177 

inverse 

i 

Bl 

or c 

res 

6,c 

cp ir 

178 

inverse 

2 

B2 

or d 

res 

6,d 

inir 

179 

inverse 

3 

B3 

or e 

res 

6,e 

ot i r 

180 

inverse 

4 

B4 

or h 

res 

6, h 


181 

inverse 

5 

B5 

or 1 

res 

6,1 


182 

inverse 

6 

B6 

or (hl) 

res 

6, ( hl) 


183 

Inverse 

7 

B7 

or a 

res 

6,a 


184 

inverse 

8 

B8 

cp b 

res 

7, b 

Iddr 

185 

inverse 

9 

B9 

cp c 

res 

7,c 

cpdr 

186 

inverse 

: 

BA 

cp d 

res 

?, d 

indr 

187 

Inverse 

• 

BB 

cp e 

res 

7,* 

otdr 

188 

inverse 

< 

BC 

cp h 

res 

7,h 


189 

inverse 

= 

BD 

cp ) 

res 

7,1 


190 

inverse 

> 

BE 

cp (hl > 

res 

7,(hl) 


191 

inverse 

7 

BF 

cp a 

res 

7,a 


192 

inverse 

@ 

C0 

ret nz 

set 

0,b 


193 

inverse 

A 

CI 

pop bc 

set 

0, c 


194 

inverse 

B 

C2 

jp nz,NN 

set 

0, d 


195 

inverse 

C 

C 3 

jp nn 

set 

0 ,e 


196 

inverse 

D 

C4 

call nz,NN 

set 

0, h 


197 

inverse 

E 

C5 

push bc 

set 

0,1 


198 

inverse 

F 

C6 

add a,N 

set 

0 , (hl) 


199 

Inverse 

G 

C7 

rst 0 

set 

0 ,a 


2 m 

inverse 

H 

C8 

ret z 

set 

1 ,b 


201 

inverse 

1 

C9 

ret 

set 

1,c 


202 

inverse 

J 

CA 

jp z,NN 

set 

1 ,d 


203 

inverse 

K 

CB 


set 

1 ,e 


204 

inverse 

L 

CC 

call z,NN 

set 

1 , h 


205 

inverse 

M 

CD 

call NN 

set 

1 


206 

inverse 

N 

CE 

ade a,N 

set 

1 ,(hl) 


207 

inverse 

0 

CF 

rst 8 

set 

1 ,a 


208 

inverse 

P 

D0 

ret nc 

set 

2 ,b 


209 

inverse 

Q 

Dl 

pop de 

set 

2,c 


210 

inverse 

R 

□ 2 

jp nc,NN 

set 

2,d 


211 

inverse 

S 

D3 

out (N),a 

set 

2,e 


212 

inverse 

T 

04 

call nc,NN 

set 

2 ,h 


213 

inverse 

U 

D5 

push de 

set 

2,1 


214 

inverse 

V 

06 

sub N 

set 

2,(hl) 


215 

inverse 

W 

D7 

rst 16 

set 

2,a 


216 

inverse 

X 

D8 

ret c 

set 

3,b 


217 

inverse 

Y 

D9 

exx 

set 

3,c 


218 

inverse 

z 

DA 

jp c,NN 

set 

3,d 


219 

inverse 

[ 

DB 

in a , (N) 

set 

3 .,e 


220 

inverse 

\ 

DC 

call c,NN 

set 

3,h 


221 

inverse 

1 

DD 

stellt Instrukt. 

set 

3,1 






mit ix voran 




222 

inverse 

t 

DE 

sbc a, N 

set 

3,{hl) 


223 

inverse 


DF 

rst 24 

set 

3,a 


224 

inverse 

£ 

E0 

ret po 

set 

4,b 


225 

inverse 

a 

El 

pop hl 

set 

*,c 


226 

inverse 

b 

E2 

jp po,NN 

set 

4, d 


227 

inverse 

c 

E3 

ex (sp),hi 

set 

4, e 


228 

inverse 

d 

E4 

call po,NN 

set 

4,h 


229 

inverse 

e 

E5 

push hf 

set 

4,1 


230 

inverse 

f 

E6 

and N 

set 

4, (h 1) 


231 

inverse 

g 

E7 

rst 32 

set 

4,a 


232 

inverse 

h 

E8 

ret pe 

set 

5,b 


233 

inverse 

i 

E9 

] P (hl) 

set 

5,c 


234 

inverse 

j 

EA 

jp pe ,NN 

set 

5,d 


235 

inverse 

k 

EB 

ex de,hl 

set 

5,6 




1 AI 


141 


Code 

Zeichen 


Hex 

Z80 Assembler 
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236 

j nvense 

1 

ec 

call pe,NN 

set- 

5, h 

237 

inverse 

m 

ED 


set 

5,1 

5,(hl) 

238 

inverse 

n 

EE 

xor N 

set 

239 

inverse 

o 

EF 

rst 40 

set 

5,a 

240 

i nverse 

P 

F0 

ret p 

set 

6, b 

241 

inverse 

q 

Fl 

pop af 

set 

6,c 

242 

i nverse 

r 

F2 

jp p,nn 

set 

6, d 

243 

inverse 

s 

F3 

di 

set 

6 ,e 

244 

inverse 

t 

F4 

call p,NN 

set 

6,h 

245 

i riverse 

u 

F5 

push af 

set 

6,1 

246 

inverse 

V 

F6 

or N 

set 

6,(hl) 

247 

inverse 

w 

F7 

rst 48 

set 

6, a 

248 

inverse 

X 

F8 

ret m 

set 

7,b 

249 

inverse 

y 

F9 

Jd sp,hl 

set 

7,c 

250 

inverse 

z 

FA 

jp m ,NN 

set 

7,d 

25t 

inverse 

{ 

Fß 

ei 

set 

7 ,e 

252 

inverse 

1 

FC 

cail m,NN 

Set 

7,h 

253 

inverse 


FD 

stellt Instrukt. 
mit iy voran 

set 

7,1 

254 

inverse 


FE 

cp N 

set 

7,(hl) 

255 

inverse 

© 

FF 

rst 56 

set 

7,a 
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Es gibt zwei Arten von Fehlern. Oie harmlosere tritt auf, wenn der 
Computer im Ei ngabebereich ein Undefiniertes Wort erkennt: er verwan¬ 
delt die MARKE in B und gibt Ihnen die Chance zur Korrektur. Beachten 
Sie bitte, daß B nicht immer einen Fehler anzeigt, sondern daß 
dieses Zeichen auch unter anderen Umständen auftritt, z.B. wenn Sie 
EDIT benutzen und der Computer Ihnen mit B anzeigt, daß Sie im 
Eingabebereich Änderungen vornehmen können. 

Bei der zweiten Art handelt es sich um echte Fehler, und diese 
werden durch ERROR und dem zugehörigen Fehlercode auf dem Bild¬ 
schirm angezeigt. Diese Feh feranzei gen mit ERROR., löschen den OATA- 
stack, den RETURN-stack und den Eingabebereich und gleichzeitig 

wird eine unvollständige Definition im Wörterbuch gelöscht. 

Hier nun die einzelnen Fehlercodes mit der Erklärung ihrer Bedeutung 
und evtl. Ursachen. 

Fehlercode bedeutet: 

1 Nicht genügend Speicherplatz. Entweder haben Sie den DATA-stack 
oder den RETURN-stack überladen, oder Sie haben versucht, eine 
Eintragung ins Wörterbuch zu machen, für die dort kein Platz 
mehr war. Siehe Kapitel 5. 

2 "Underf low" im DATA-stack. Der Computer hat weniger als keine 

Zahl auf dem stack. Siehe Kapitel 5, Übung 4. 

3 Sie haben BREAK getastet. BREAK ist norma lerweise SHIFTED 

SPACE; während Sie mit Cassette arbeiten oder wahrend einer 

BEEP-Operation funktioniert die Taste 

auch ohne SH I FT als BREAK. 

4 Sie haben versucht, außerha I b einer Wortdefinition ein Wort zu 

benutzen, welches nur i nnerhal b einer Wortdef in i tion zugelassen 
ist {Compif ing-Wort). Kann verursacht werden durch IF, ELSE, 
THEN, BEGIN, UNT1L, WH ILE, REPEAT, DO, LOOP, +LOOP, ; 

DOES> , RUNS> , ( , . M oder durch ein comp i I ierendes Wort , 

welches durch COMPILER definiert wurde. 

5 Ein Wort ist nicht richtig Struktur iert. IF...THEN, IF..ELSE..- 

THEN, BEGIN. ..UNTIL, BEG IN .. .WH ILE .. .REPEAT, DO...LOOP, DO...- 
+ LOOP, DEF INER.. .DOES >... ; und COMP ILER.. .RUNS> ...; 

müssen in richtiger Folge und vollständig verwendet werden. 
Siehe Kapitel 10. 

6 Der Name eines neuen Wortes ist entweder zu kurz (d .h.erjfehl t völ¬ 

lig), oder er ist zu lang (64 Zeichen oder mehr). Kann auftreten 
bei DEF INER, COMPILER, CREATE, CONSTANT, VARIABLE oder 

bei irgendeinem von Ihnen selbst definierten Wort, bei dem Sie 
DEF INER benutzt haben. 

7 Sie haben PICK oder ROLL mit 0 oder negativem Operanden 

benutzt. Beachten Sie bitte, daß ein Operand -32768 nicht zu 

ERROR 7 führt. Siehe Kapitel 6, Übung 2. 
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8 Overflow bei Gleitkommaarithmetik: Das Rechenergebnis ist zu 
groß für den im ACE reservierten Glei t kommabereich. Kann auf- 
treten bei Ft-, F~, F* oder F/. Tritt immer auf, wenn Sie durch 
0 zu dividieren versuchen. 

9 Versuch, in den E ingabebereich zu schreiben. Kann verursacht 
werden bei AT oder PLOT. 

10 Bandfehler. 

a) bei SAVE oder BSAVE - entweder kein Datenname vergeben 
oder keine Daten zur Sicherung vorhanden. 

b) bei VERIFY oder BVERIFY - Daten sind nicht (richtig) auf 
auf Band angekommen 

c) bet LOAD - der Datenbestand ist zu lang für die verbleibende 
Speichergröße 

d) bei BLOAD oder BVERIFY - der Datenbestand ist zu groß für 
die vorher spezifizierte Länge. 

e) bei LOAD, VERIFY, BLOAD oder BVERIFY - Lesefehler. Entweder 
durch (teilweise) zerstörte Daten oder defektes Band. 

11 Fehler bei REDEFfNE oder FORGET. 

Bei REDEFfNE: Entweder Ist das neueste Wort im aktuellen Vokabu¬ 
lar nicht auch das neueste im gesamten Wörterbuch; oder das 
alte Wort wird nicht gefunden (oder ist im Festspeicher); oder 
das alte Wort wurde mit DEFINER oder COMPILER definiert, nicht 
aber das neue; oder es Ist nicht mehr genügend Platz im 
Speicher (man benötigt soviel Platz im Speicher, daß man zwei 
Kopien des neuen Wortes unterbringen kann, nachdem das alte 
Wort entfernt wurde). 

Bei FORGET: Die im CONTEXT- und im CURRENT-Vokabu I ar gespei¬ 
cherten Texte sind verschieden. 

12 Unvoll ständige Definition im Wörterbuch - bestimmte Operationen 
sind dann nicht erlaubt. Kann verursacht sein bei REDEFINE, bei 
einer Bandoperation oder bei irgendeinem def i n ierenden Wort (wie 
unter ERROR 6 aufgeführt). Dieser Fehler behebt sich selbst, 
indem er die unvollständige Definition aus dem Wörterbuch ent¬ 
fernt, Wahrscheinlich haben Sie eine Definition gestartet (mit :, 
DEFINER oder COMPILER), kamen mit [ zum i nterpret-modus und 
haben dann die nicht zulässige Operation versucht. 

13 Wort nicht gefunden (oder ist im Festspeicher oder ist ein 
festverdrahtetes FORTH-Wort. Kann auftreten bei FORGET, LIST 
oder EDIT. 

14 Wort ist nicht auflistbar, tritt auf bei LIST oder EDIT. Nur Wörter, 

die mit *. , DEFINER oder COMPILER definiert wurden, sind auf- 

I istbar. 



ANHANG C 

DER JUPITER ACE - ZUM NACHSCHLAGEN 


Zeichen und Tastatur 

Der ACE benutzt den ASCiI-Zeichensatz mit folgenden speziellen Vor¬ 
schriften : 


Code 

0 

13 

16-23 

16 

17 

18 

19 

20 
21 
22 
23 
96 
127 

128-255 


Bedeutung 

Trennt logische Zeilen im Eingabebereich 
Carriage return (WagenrückI auf) 

Grafische Zeichenmuster 


a 

B 

r 

E 

0 

E 


Inverse-viidteo-Versionen derr Zeichen 0 bis 127 


Die Formen der Zeichen 0 bis 127 sind im RAM gespeichert und 

können vom Benutzer selbst neu definiert werden. Jede Zeichenform 

besteht aus einem Raster von 8x8 Punkten und ist in 8 hintereinander- 
fol genden[By tes gespeichert, mit der obersten Punktereihe in der Hex- 
Adresse 2C00 + 8 * ASCII-Code, und der untersten Punktererhe in der 

Hex- Adresse 2C00 + 8 * ASC I I-Code + 7. 

In jeder Reihe ist der am weitesten links stehende Punkt das signifi¬ 
kante Bit ( 1 = weiß ). 

Alle Zeichen können von der Tastatur erreicht werden. SHIFT wird 
für Großbuchstaben und Kontrollfunktionen gebraucht, SYMBOL SHIFT 
für Sonderzeichen, Drei spezielle Eingabemodi können über die Tasta¬ 
tur ein-und ausgeschaltet werden (unabhängig voneinander): CAPS 
LOCK schaltet von Klein- auf Großbuchstaben um, INVERSE VIDEO 
wandelt alle 2eichen in Negativ-Schreibung um, und GRAPHICS wandelt 
Zeichen in solche mit den Codes 0 bis 31, oder 128 bis 159 um, 
indem es die Bits 5 und 6 des ASCII-Code ersetzt. Alle Zeichen 
können durch Dauerdruck auf die jeweilige Taste wiederholt werden. 

Der Eingabebereich belegt die unterste Zeile auf dem Bildschirm und 

wird bei größeren Eingaben nach oben erweitert. Alle Eingaben 
werden sofort links von der MARKE angezeigt. Die MARKE zeigt durch 
ihre Form auch den jeweiligen Eingabemodus an: Normal afs Viereck, 
S für CAPS LOCK, ® für GRAPHICS, und wenn der Computer die Auf¬ 
forderung ausgibt, etwas im Eingabebereich ändern zu können. Die 

MARKE kann mit den Tasten SHIFTED 5,6,7 und 8 bewegt werden. 

DELETE löscht das Zeichen unmittelbar tinks von der MARKE, und 
DELETE LINE den gesamten Eingabebereich (aber beachten Sie EDIT). 

Ist ENTER gedrückt, nimmt der FORTH-Übersetzer Wörter aus dem Ein¬ 
gabebereich, kopiert sie oben auf den Bildschirm, und führt sie aus 

(aber beachten Sie INV1S). Dies wird solange fortgeführt, bis entweder 
der Eingabebereich leer ist oder ein Undefiniertes Wort gefunden wird. 
SPACE mit SHIFT arbeitet normalerweise wie BREAK und erzeugt ERROR 
3. 



145 


145 


FORTH Wörterbuch 


In den E rl äu terungen verwenden wir folgende Kurzzeichen: 

n Einfachlange Ganzzahl 
d Doppeltlange Ganzzahl 

u Zahl (oder Darstellung) ohne Vorzeichen 
f Gleitkommazahl 
I Sofort auszuführendes Wort 

C Verwendung des Worts nur im Compiler-Modus 




# 


#> 


#5 


er ( 


V 

*/MOD 

+ 

CI +LOOP 


CI 

/ 

/MOD 


(n,Adresse -) 

Eine einfachlange Zahl n wird in die gegebene 
Speicheradresse übertragen 

(udl - ud2) 

Für formatierte Ausgabe. Nimmt eine Ziffer aus 
der doppeltlangen Zahl udl und legt sie im Pad 
ab. ud2 ist der Quotient, der entsteht, wenn udl 
durch die Zahlen bas is dividiert wird. 

(ud - Adresse,n) 

Schließt formatierte Ausgabe ab und hinterläßt 
Adresse und Lange (n) der resu(tierenden Zeichen¬ 
folge im stack. 

( ud - 0 ,0 ) 

Verwendet # wiederholt (mindestens einmal), bis 
die doppeltlange Zahl im stack zu 0 geworden 
ist, 

Anfang eines Kommentars. Abschluß mit ). 

(nl,n2 - nl*n2) 

(n1,n2,n3 - (nl*n2}/n3) 

nl,n2,n3 - Rest, Quotient aus ((nl*n2)/n3) 
n 1 , n2 - n Hn2) 

<n -) 

Wird zusammen mit DO verwendet. Addiert n zum 
Schleifenzähler und springt zurück, solange der 
Zähler noch kleiner (für n>0) oder größer (für 
n <0) als ein gegebens Limit ist. 

(n -) 

Übernimmt eine einfachJange Ganzzahl n ins Wör¬ 
terbuch. 

(nl,n2 - nl-n2) 

(n -) 

Ausgabe auf Bildschirm mit nachfolgender Leerstelle 
( - ) 

Gibt den nachfolgenden String aus. Begrenzung 
durch " 

(n1,n2 - nl/n2) 

Division einfachl anger Zahlen mit Vorzeichen 
(n1,n2 - Rest,Quotient aus n1/n2) 

Der Rest hat das gleiche Vorzeichen wie der Divi- 
dent nl. 
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0< 

(n - MERKER) 

Der Merker ist 1, 

wenn n negativ. 

0= 

(n - MERKER) 

Der Merker ist 1, 

wenn n = 0 

0> 

(n - MERKER) 

Der Merker ist 1, 

wenn n positiv. 

1 + 

(n - n+1 ) 


1 - 

(n - n-1 ) 


2+ 

(n - n+2) 


2 “ 

(n - n-2) 


: 

Beginn einer Doppelpunkt-Definition 


CI ; Beendet Doppelpunkt -, DEFINER und COMPILER- 

Oef initionen 

< (n1,n2 - MERKER) 

Merker ist 1, wenn nl < n2 

<# (-) 

Beginnt eine formatierte Ausgabe 

= ( n 7,n2 - MERKER) 

Merker ist 1, wenn nl = n2 

> (nl ,n2 - MERKER) 

Merker ist l, wenn nl > n2 

>R (n - ) 

Überträgt den TOS in den RETLIRN-stack. Mit I 
kann zurückkopiert werden. 

?DUP (n - n,n) wenn n f 0 

(n - n) wenn n = 0 

@ (Adresse - n) 

Hinterläßt im stack eine einfachlange Zahl n aus 
der gegebenen Adresse. 

ABORT Löscht DATA- und RETURN-stack, löscht alle un¬ 

vollständigen Wörter aus dem Wörterbuch. Zeigt 
ERROR und den Inhalt des Bytes 3C3D (hex) an. 
Leert den Eingabebereich und gibt die Kontrolle 
an die Tastatur zurück. 

ABS (n - Absolutwert von n) 

ALLOT (n - ) 

Reserviert n Bytes im Wörterbuch, ohhe sie mit 
Daten zu fül Jen . 

AND (nl ,n2 - nl AND n2) ' 

Bitweise arbeitende Boolesche Operation 

ASCII Nimmt das nächste Wort aus dem Eingabebereich 

und gibt den ASCII-Code seines ersten Zeichens 
aus. 

Beispiel: 

: STERNE 0 DO ASCII * EMIT LOOP ; 

( - ASCII-Code) im Interpreter-Modus 
( - ) im Kompiler-Modus 
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AT 


BASE 

BEEP 

CI BEGIN 
BLOAD Name 

B5AVE Name 

BVERIFY Name 


C! 

C, 

c@ 

CALL 

C LS 


(Zei i e,Spaf te - ) 

Setzt die MARKE- (Cursor-) Position auf im stack 
angegebene Zeile und Spalte. Es gibt 23 Zeilen 
(0 bis 22) und 32 Spalten (0 bis 31). Die Spalten¬ 
zahl wird Modulo 32 genommen, ERROR 9 wind an¬ 
gezeigt, wenn man versucht, in den Eingabebereich 
in der untersten Zeile zu schreiben. 

( - 15423) 

Eine 1 Byte fange Systemvariabie, die die Basis 
des jeweils verwendeten Zahlensystems enthält, 

(m, n - ) 

Erzeugt einen Ton im Lautsprecher. 8*m - Schwin¬ 
gungslänge in Mikrosekunden , n = Dauer in Milli¬ 
sekunden , 

(-) 

Verwendet mit UNTIL oder WH ILE . . .REPEAT 
(m , n - ) 

Lädt n Bytes eines Byte Files "Name" von einer 
Kassette und beginnt bei Speicheradresse m. ERROR 
10, wenn das File mehr als n Bytes hat, 

(m,n - ) 

n Bytes ab Adresse m werden in ein Byte File 
"Name” auf der Kassette gesichert. 

(m,n - ) 

Maximal n Bytes des Bytefiles "Name 1 ' auf Kassette 
werden gegen Daten rm RAM, beginnend ab m ge¬ 
prüft. Hat das File mehr als n Bytes, wird ERROR 
10 gemeldet. BLOAD und BVERIFY benutzen die 
Adresse, von der aus das Bytefile gesichert wurde, 
wenn m - 0 ist. Für n = 0 spielt die Länge keine 
Rolle. 

(n,Adresse - ) 

Speichert das weniger signifikanse «Bvte von n in 
die gegebene Adresse. 

(n - ) 

Übernimmt das weniger signifikante Byte von n 
ins Wörterbuch. 

(Adresse - Byte) 

Holt den Inhalt der gegebenen Adresse in den 
stack . 

(Adresse - ) 

Führt den in der Adresse angegebenen Maschinen¬ 
code aus. Der Code wird durch jp (iy) begrenzt. 
Beispiel in Hex: 

DEFINER CODE DOES> CALL * 

CODE E I FB C, FD C, E9 C? 

Das Wort El ermöglicht Unterbrechungen. 

(-) 

Löscht den Bildschirm und setzt die MARKE in des¬ 
sen obere linke Ecke, 
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CI COMPILER 


CONSTANT Name 

CONTEXT 

CONVERT 


CR 

CREATE Name 


Zusammen mit RUNS> verwendet. Zur Definition 
neuer Kompi ler-Wörter, also Wörtern, die innerhalb 
von Definitionen sofort Informationen ins Wörter¬ 
buch kompilieren (man arbeitet häufig mit 
IMMEDJATE, aber COMPILER... RUNS> läßt sich 
mit ED IT besser verarbeiten. 

Das neue Komp i I ierwort erzeugt eine 2 Bytes lange 
Adresse, die auf eine Laufzeit-Aktion hinweist, 
und im Bedarfsfall ein Operandenfel d. 

Format: 

n COMPILER Name 
Komp i I Ier-Rou tine 
RUNS > 

Akt ions-Rout ine 

» 

n muß auf dem stack sein und stellt die Zahl 
der Bytes im Operandenfeld dar. Wenn n - -1 , 
dann müssen die ersten beiden Bytes die Gesamt¬ 
länge des restlichen Operandenfefdes beschreiben. 
"Name" ist der Name des neuen Kompi I ierworts. 
"Kompi I ier-Rou t ine" ist der Teil, der das Operan¬ 
denfeld erzeugt. Achten Sie darauf, daß die Zahl 
der Bytes mit dem Wert n im stack übereinstimmt. 
"Aktions-Routine" führt die Aktion während der 
Laufzeit aus. Sie wird über die Adresse des Oper¬ 
andenfeldes im stack angesprochen. 

Beachten Sie bitte: LIST und EDIT zeigen Operan¬ 
denfelder nicht an, und REDEFINE korrigiert sie 
nicht, 

(n - } 

Definiert eine Konstante mit dem gegebenen Namen 
und Wert n. 

( - 15411) 

Eine Systemvariabfe, die auf das Context-Wörter- 
buch hinweist. 

( udl ,Adresse1 - ud2 , Adresse2) 

Sammelt Ziffern aus einem Text in eine doppelt¬ 
lange Ganzzahl ohne Vorzeichen udi : Für jede 
Stelle wird der Akkumulator mit der Basis des 
Zahlensystems multipliziert und die Ziffer {aus 
ASCII konvertiert) addiert. Der Text beginnt bei 
Adresse 1 +1. Adresse 2 ist die Adresse des ersten 
nicht konvertierbaren Zeichens, ud2 ist die Lange 
des Akkumulators. 

(-) 

Gibt einen Zeilenvorschub an den Fernsehschirm. 

(-) 

Definiert ein neues Wort mit Header und leerem 
Parameterfel d. Bei Ausführung legt das neue Wort 
die Adresse seines Parameterfeldes auf dem stack 
ab. 
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CURRENT 

{ - 15409) 

Eine Systemvar fable, die das (aktuelle) Current- 
Wörterbuch angibt. 

D+ 

(dl yö2 - d1+d2) 

Addition der doppel 11 angen Ganzzahlen. 

D < 

(d1,d2 - MERKER) 

Merker ist 1, wenn doppeltlange Ganzzahlen 
dl < d2 

DEC 1MAL 

(-) 

Basis des Zahlensystems auf 10 setzen. 

DEFINER 

Zusammen mit DOES> zur Definition neuer Defrni- 
tionswörter. Das sind Wörter, die ihrerseits neue 
Wörter definieren können. 

Format: 

DEFINER Name 

Defini tionsroutine 

DOES > 

Akt ionsrou tine 


"Name" ist der Name des neuen Def ini tionsworts. 

Bei der Ausführung erzeugt es den Header eines 
neuen Worts und benutzt dessen Def i n i t ionsrou t i ne 
zur Festlegung des Parameterfeldes. Wird dieses 
neue Wort ausgeführt, kommt sein Parameterne 1 d 
auf den stack und der Aktionsteil läuft ab. 

OEFIN IT IONS 

(-) 

Das Context-WÖrterbuch wird auch Current-Wörter- 
buch . 

DNEGATE 

(d - -d) 

Eine doppeltlange Ganzzahl wird negiert. 

CI DO 

(Grenz wert, Anfangswert - ) 

Beginnt eine DO - Schleife. Der Schleifenzähl er 
wird auf den Anfangswert gesetzt. Grenzwert und 
Schleifenzähl er werden im RETURN-stack gespeichert 
(Vgl. LOOP und +LOOP) 

CI DOE5> 

Vgl. DEFINER 

DROP 

(n - ) 

Eine Zahl wird aus dem TOS entfernt. 

DUP 

( n - n ,n ) 

Der TOS wird dupliziert. 

EDIT Name 

(-) 

Listet das Wort "Name" auf dem Bildschirm für 
die Aufbereitung (Änderung) an. Es werden maxi¬ 
mal 18 Zeilen angezeigt. Mit ENTER können die 
nächsten Zeilen geholt werden. Am Ende wird mit 
ENTER die neue Version des Worts ins Wörterbuch 
gestel 11. 


Die MARKE (Cursor) kann während des Editierens 
in den Zeilen bewegt werden. Mit DELETE LINE 
wird eine Zeile gelöscht. 

CI ELSE 

(-) 

Wird mit IF und THEN verwendet. 
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EMIT 

(Zeichen - } 

Schreibt ein Zeichen vom TOS auf den Bildschirm. 

execute 

(Kompil ieradresse - ) 

Führt das Wort mit der gegebenen KompiI ieradresse 
aus. 

EX IT 

(-) 

Springt sofort aus dem Wort heraus, in dem es 
definiert wird. Darf in DO...LOOP bezw, +LOOP, 
und >R...R> nicht verwendet werden. 

F* 

(fl ,f2 - f 1 2) 

Multipliziert zwei Gleitkommazahlen und legt das 
Ergebnis auf dem stack ab. 

F4 

(fl,f2 - fl +f2 ) 

Addiert zwei Gleitkommazahlen und legt die Summe 
auf den stack. 

F- 

(f1,f2 - fl-f2) 

Subtrahiert zwei Gleitkommazahlen. 

F. 

(f - ) 

Zeigt eine Glei tkoammazahl an. 

1 .0E-4^f< 1 .0E9 wird ohne Exponent und mit Dezi¬ 
malpunkt an der richtigen Stelle angezeigt. Zahlen 
außerhalb dieses Bereichs werden in der Standard¬ 
form f'En, mit 0^f T <10 und -64-$n<62 angezeigt. 

Die Eingabe ist beliebig, es werden jedoch nur 

6 signifikante Ziffern übernommen, weitere Zahlen 
werden ignoriert. Gleitkommazahlen werden in drei 
Bytes als binar codierte Dezimalzahl für die Man¬ 
tissen und Dezimalzahlen für die Exponenten ge¬ 
speichert . 

F/ 

(fl ,f2 - f1/f2) 

Dividiert zwei Gleitkommazahlen. 

FAST 

"Schnelle" Arbeitsweise (Fast-Mode), läuft ohne 

Feh ferprüfung (siehe SLOW). 

FIND 

( - Kompi 1 ieradresse) 

Legt die Kompilieradresse des ersten Worts im Ein¬ 
gabebereich auf den stack, wenn es im Context- 
Wörterbuch definiert ist, sonst 0. 

FNEGATE 

(f - -f) 

Negation einer Gleitkommazahl. 

FORGET Name 

(-) 

Löscht das Wort "Name" und alle danach definier¬ 
ten Wörter aus dem Wörterbuch. 

FORTH 

Macht das Standard-Wörterbuch FORTH zum Context- 
Wörterbuch. 

HERE 

( - Adresse) 

Legt die Adresse des ersten Bytes nach dem Wör¬ 
terbuch auf den stack. 

HOLD 

(Zeichen - ) 

Wird bei formatierter Ausgabe zur Übernahme eines 
Zeichens in den Pad benutzt. 
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I 

I' 

CI | F 


[MMED1ATE 

IN 

INKEV 

INT 

INV IS 

J 

LEAVE 

L INE 

LIST Name 


( - Schleifenzähler} 

Die oberste Zahl des RETURN-stack wird in den 
DATA-stack kopiert. Dies ist entweder der Schlei¬ 
fenzähler der innersten DO...LOOP Schleife, oder 
die zuletzt mit >R in den RETURN-stack übertragene 
Zahl. 

( - Grenzwert) 

Kopiert die zweite Zahl aus dem RETURN-stack 
in den DATA-stack, In einer Do-Schleife ist dies 
der Grenzwert der Schleife. 

(n - ) 

Wird in der Form 
IF...THEN 
oder 

IF...EL5E...THEN 
verwendet. 

in der ersten Form werden die Wörter zwischen 
IF und THEN ausgeführt, wenn n ungleich 0 ist, 
sonst werden sie übersprungen. 

In der zweiten Form wird fF...ELSE ausgeführt 
und ELSE...THEN übersprungen, wenn n ungleich 
0, andernfalls wird IF...ELSE übersprungen und 
ELSE...THEN ausgeführt. 

(-) 

Das neueste Wort im Current-Wörterbuch wird, auch 
im Kompiler-Modus, sofort ausgeführt. 

(Anschlußadresse - Datenbyte) 

Übernimmt ein Datenbyte von einem l/O-AnschIuß. 

( - ASCII Code) 

Fragt die Tastatur ab. Übernimmt den ASCII Code 
einer gedrückten Taste auf den stack, sonst 
eine 0. 

(f - n) 

Wandelt eine Gleitkommazahl mit Vorzeichen in 
eine einfache Ganzzahl um. 

Unterdrückt den Kopiervorgang und OK auf dem 
Bildschirm (s. VIS) 

( - Schleifenzähler) 

Kopiert die dritte Eintragung im RETURN-stack 
auf den DATA-stack. Das ist entweder der Schlei¬ 
fenzähler der zweitinnersten DO-Schleife oder die 
Zahl, die durch das drittletzte >R im RETURN-stack 
abgelegt wurde. 

<-) 

Beendet eine DO-Schleife beim nächsten LOOP oder 
+LOOP, indem es den Schleifenzähler gleich dem 
Grenzwert setzt. 

Interpretiert den Eingabebereich als normale 
FORTH-Ze? le. 

(-} 

Listet das Wort "Name" auf dem Bildschirm an. 

Das Wort muß durch DEFINER oder COMPILER 
definiert sein. Es werden maximal 18 Zeilen ange¬ 
zeigt. Durch Betätigen einer beliebigen Taste wird 
wei tergeschal tet. Mit BREAK kann der Vorgang 
unterbrochen werden. 
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CI LITERAL 

( n - ) 

Kompiliert den TOS als Zeichenfolge in eine Wort- 
def ini t ion - 

LOAD Name 

(-) 

Sucht einen Datensatz "Name" auf der Kassette 
und lädt ihn in den Speicher im Anschluß an das 
bereits gespeicherte Wörterbuch. Zeigt die Namen 
aller gefundenen Datensätze auf dem Bildschirm 
an. (siehe SAVE). 

CI LOOP 

(-) 

Wie +LOOP. Addiert jedoch immer 1 zum Schleifen¬ 
zähler. 

MAX 

(n1,n2 - max(n1 ,n2)) 

Ermittelt die größere von zwei Zahlen. 

MIN 

(n1,n2 - min(n1,n2)) 

Ermittelt die kleinere von zwei Zahlen. 

MOD 

(n1,n2 - Rest aus nl/n 2) 

Der Rest hat dasselbe Vorzeichen wie der Dividend 

n 1 ■ 

negate 

(n - -n ) 

NUMBER 

Nimmt eine Zahl aus dem Anfang des Eingabebe¬ 
reichs. Legt die Zahl und eine Adresse f 0 auf 
den stack. Die Adresse ist die Kompi 1 ieradresse 
eines Li teral-Kompi lers. Mit EXECUTE wird die 

Zahl als Literal (Zeichenfolge) ins Wörterbuch 
kompiliert. Für Ganzzahlen Ist dies 4102, für Gleit¬ 
kommazahlen 4181 . 

Ist keine gültige Zahl vorhanden, wird 0 auf den 
stack gelegt. 

OR 

(nl,n2 - nl OR n2) 

Bitweise Boolesche Operation. 

OUT 

( Datenby te ,Anschlußadresse - ) 

Überträgt ein Datentyte an eine l/O-Adresse. 

OVER 

{n1,n2 - n1,n2,nl ) 

PAD 

( - 9985) 

Legt die Adresse des 254 Byte langen Arbeitsbe¬ 
reichs (Pad) auf dem stack ab. 

PICK 

(nl - n2) 

Kopiert die Eintragung an Stelle nl des stack an 
den. TOS. nl selbst geht verloren. ERROR 7, wenn 
nl < 0 . 

PLOT 

( x ,y ,n - ) 

Gibt ein Pixel an Stelle x,y mit dem P lotti ng-Modus 
n aus. 

n = 0 schwarz 

1 wei ß 

2 keine Änderung 

3 Änderung 

Ist n>3. wird der Vierer-Rest gebildet und als 

Plotting-Modus verwendet. 
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GUERY 

QU IT 


R> 


REDEFlNE Name 


S I REPEAT 

RE TYPE 

ROLL 

ROT 

CI RUNS > 
SAVE Name 


SIGN 

SLOW 

SPACE 

SPACES 

SWAP 

0! TUEN 


Löscht den Eingabebereich und nimmt Zeichen an, 
big ENTER gedrückt wird. Der Bereich kann aufbe- 
reitet werden. Er Ist auf 22 Zehen begrenzt. 

(-) 

Löscht den RETURN-siaek und den Eingabebereich 
und übergibt die Steuerung an die Tastatur. 

( - Eintragung von RETURN-stack) 

Überträgt die erste Eintragung aus dem RETURN- 
stack in den DA TA-stack. 

!-) 

Ersetzt das Wort "Name" durch das neueste Wort 
im Wörterbuch. Überarbeitet das Wörterbuch um 
Änderungen zu berüeksfeht i gen. 

Meist verwendet in der Form 
ED1T Name 
REOFF INE Name 

(-> 

Verwendet in der Folge BEG (N.WH ILE... REPEAT. 
Veranlaßt einen Rücksprung direkt hinter 8EGIN. 

Gibt dem Benutzer die Möglichkeit, Daten einzuge- 
ban. Setzt die MÄRKE (Cursor) auf £ (vgl .QUERY, 
das vorher den Eingabebereich löscht). 

(n -) 

Übernimmt die Eintragung an Stelle n des Stack, 
überträgt sie an den TOS und verschiebt alle 
Zahlen noch hinten, n geht verloren, ERROR ? 
wenn n 0 , 

(nl,n2,n3 - n2,n3,ni) 
siehe COMPILER 
(-) 

Sichert das komplette Wörterbuch aus dem RAM- 
Bereich in einen Datensatz "Name" auf Band. Er¬ 
zeugt ein Geräusch im eingebauten Lautsprecher* 
Siehe VERIFY und LOAD, ebenso BSAVE, BVERIFY 
und BLOAD. 

(n -) 

Übernimmt ein Minuszeichen zur formatierten Aus¬ 
gabe In den Rad, wenn n negativ ist, 

(-) 

"Langsame 1 - Arbeitsweise mit Fehlerprüfung. Siehe 
FAST 

(-> 

Gibt einen Zwischenraum auf dem Bildschirm aus, 

(n -) 

Gibt n Z wischen räume auf dem Bildschirm aus. 

(nl,n2 — n2.nl) 
verwendet mit IF 
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TYPE 

(Adressen - ) 

Zeigt n Zeichen aus dem Speicher an, Beginn bei 
Adresse. 

U* 

(un1,un2 - doppeltlang (un1*un2)) 

Multipliziert zwei einfachlange Zahlen zu einem 
doppel tlangen Produkt (ohne Vorzeichen ). 

u. 

(un -) 

Gibt eine einfachlange Zahl ohne Vorzeichen mit 
nachfolgendem Zwischenraum auf dem Bildschirm 

aus« 

U/MOD 

(udl,un2 - un3,un4) 

Alle Rechenvorgänge ohne Vorzeichen. Die doppelt- 
lange Zahl udl wird durch die einfachiange Zahl 
un2 dividiert. Das Ergebnis sind die einfach 1 angen 
Zahlen un3, Rest, und un4, Quotient. 

U < 

(uni,un2 - MERKER) 

Merker ist 1, wenn uni un2. 

UFLOAT 

(un - f) 

Wandeft einfachfange Zahl ohne Vorzeichen in 
Gleitkommazahl um. 

CI UNTIL 

(n -) 

Verwendet in BEG 1 N...UNT 1 L. Springt zurück, wenn 
n = 0. 

VARIABLE Name 

(n -) 

Speichert eine Variable ''Name" mit dem Anfangs¬ 
wert n. 

VERIFY Name 

(-) 

Vergleicht Wörterbuch auf Band gegen Wörterbuch 
im Speicher. Siehe SAVE. 

VIS 

Ermöglicht Kopiervorgang und Anzeige von OK auf 
dem Bildschirm. 

VLIST 

Listet Wörterbuch auf dem Bildschirm auf. 

VOCABÜLARY Name 

(-) 

Definiert ein neues Wörterbuch mit dem gegebenen 
Namen , 

CI WH ILE 

(n -) 

Verwendet in BEG IN . .. WH ILE.. .REPEAT. Ist n = 0 
verzweigt es hinter REPEAT. 

WORD Text 

(Begrenzer - Adresse) 

Nimmt einen Text aus dem Eingabebereich bis zum 
Begrenzer und kopiert ihn in den Pad. Beginnt 
dort beim zweiten Byte. Stellt die Länge des Textes 
ohne Begrenzer in das erste Byte des Pad und 
legt die Adresse des ersten Bytes des Pad in den 
stack. 

Es werden maximal 253 Zeichen aus dem Eingabe¬ 
bereich genommen. Sind dort mehr Zeichen vorhan- 
den, hat das erste Byte des Pad den Wert 254. 
Führende Begrenzer werden ignoriert. 

XOR 

Bitweise Boolesche Operation. Exclusiv oder. 

I [ 

(-) 

Eröffnet Interpreter-Modus- 

] 

i-) 

Eröffnet Kompiler-Modus. 



ANHANG D 

SCHNELLER ÜBERBLICK FÜR FORTH-KENNER 

Die FORTH-Sprache Ihres Jupiter ACE basiert auf der Version FORTH-79. 

Die grundsätzI ichen Unterschiede zur Basisversion sind; 

1. Ihr ACE braucht keinen speziellen Bildschirm. Ein- und Ausgabe 
wird mit Kassettenrecorder du rchgef üh rt, dabei wird entweder ein 
Wörterbuch in comprlierter Form abgespe i chert (Liste compilierter 
Adressen), oder es werden unbearbeitete Bytes aus dem Speicher 
übernommen. Siehe SAVE, VERIFY, LOAD, BSAVE, BVERIFY, BLOAD, 

2. Der ACE kann selbstverständlich Wörter decomp i [ ieren - siehe LIST 
und EDlT. Er kann auch bereits compilierte Wörter im Wörterbuch 
ändern und dabei alle Comp i li erungsadressen und MERKER anpassen 
- siehe REDEFINE und LOAD. 

3. Es gibt einige Erleichterungen für die Gleitkommaarithmetik - F+, 
F-, F*, F/, F. , FNEGATE, INT, UFLOAT. 

4. DEF INER .. . DOES> ersetzt : ,..CREATE ...DOES> um neue definierende 
Wörter zu definieren; dazu gibt es ein korrespond i erendes Paar 
COMP ILER... RUNS> für die Definition neuer comp i I ierender Wörter. 

5. Es gibt eigene Wörter: ASCII, AT, BEEP, CALL, CLS, FAST, IN, 
INKEY, INVIS, LINE, NUMBER, OUT, PLOT, RETYPE,' SLOW, VIS. 

6. Folgende Wörter sind im ACE FORTH nicht vorhanden: +!, 

-TRAIL ING, 79-STANDARD, >IN, ?, CMOVE, COMPILE, COUNT, DEPTH, 
EXPECT, FILL, KEY, MOVE, NOT, 5TATE, [Compile]. 

Viele dieser Wörter sind im Buch als Beispiele definiert. 
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REGISTER 


t 

35,37,62 

2CONSTANT 

105 

II 

15,108 

2DROP 

78 

# 

96 

20VER 

78 

#> 

96 

2PICK 

78 

#s 

96 

2ROLL 

78 

t 

105 

2ROT 

78 

( 

25 

2SWAP 

78 

) 

25 

2VARIABLE 

105 


19,96 



7 

21 ,96 



"/MOD 

20,96 

A 


+ 

17 

ABORT 

83,126,11 

+ ! 

37 

ABS 

20,98 

+ LOOP 

49 

Absol ut werte 

69 

J 

102 

Adresse 

36 


19 

Adreßbus 

132 


25 

Akkumu 1 ator 

98 

-TRA1LING 

85 

Aktionstef 1 

104 

• 

1 7 

ALLOT 

103 

- " 

15 

AND 

92 

.S 

127 

arrays 

101,107, 

/ 

19,96 

ASC J 1 

59,62,93 

/MOD 

19,96 

A5C11-Code 

59 


14 

ASSEMBLER 

131 

; 

14,103,120 

AT 

63 

< 

41,42,90 

Auffül Ibereich 

84 

<# 

96 



< BU J LOS 

104 

B 


- 

42 



> 

42 

BASE 

88,126 

> R 

52 

BASIC 

41,65,82 


37 

Basi s 

54 

B 

8,16,144 

Bedingung 

40,92 

9 

144 

BEEP 

55 

9 

59,144 

BEGIN 

46 

?DUP 

43 

Begrenzer 

84 


35,37 ,62 

Bereiche 

107,110 

[ 

117 

Bereichsvari able 

101 

] 

1 17 

BI Idschi rmlnhalt 

74 


31 ,43 

Binar codierte Dezimalzahf 

99 


31 

B i n ä rsc hre i b we i se 

88 

+ 

31 

Binärsystem 

88,89 

+ 

31 

binary code decimal 

99 

'V 

85 

Bit 

89 

CI 

145 

BLOAD 

13,75 

0 

6 

Boolesche Operationen 

92 

0< 

41 ,42 

Box 

36 

0= 

42 

B5AVE 

75 

0> 

42 

bugs 

30 

1 

6 

Byte 

36 

1 + 

20 

"Bytes” 

75 

1- 

20 



2! 

78 

C 


2+ 

20 

C 

11 

2- 

20 

C ! 

62 

2@ 

78 

C, 

102 



c@ 

62 



CALL 

129 



CAPS LOCK 

11 



Character- 

62 



CLS 

11 ,63 
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CMOVE 

112 

Codefel d 

101,105 

Codefel d-Adresse 

119 

COMP ILER 

117,119 

CONSTANT 

35 

CONTEXT 

116,125 

Contex t-Wörterbuch 

114 

CONVERT 

98 

COS 

80 

Cos tnus 

80 

COUNT 

85 

CPU 

129 

CR 

15 

CREATE 

101 

CURRENT 

116,125 

Current-Wörterbuch 

114 

D 


D+ 

95 

D. 

97 

D.R. 

100 

D< 

96 

D0< 

98 

00 = 

98 

D->PAD 

97 

DABS 

98 

DATA-stack 

52,123 

Datenbus 

132 

DEC 1 MAL 

88 

definer 

103,117 

DEF IN 1T IONS 

114 

Def ini tionstei 1 

104 

DELETE 

11 ,31 

DELETE LINE 

11 

de! imi ter 

84 

Dezimalpunkt 

77 

Dezimalsystem 

87 

D i agrarr.m 

67,72 

Diagonal schri tt 

69 

"Dict.:" 

13,73,75 

DNEGATE 

96 

DO 

48 

DOES> 

103 

DOPPEL 

23 

Doppel 1 an gen-Ari thmet i k 

95 

DRAW 

68 

DROP 

24 

Dualsystem 

87 

Dummy 

45 

DUP 

24 


EAR 

12 

EDIT 

31,34 

EINGABE 

82 

Eingabebereich 

81 ,82 

Elemente 

110 

ELSE 

40 

EMIT 

59 

Endwert 

49 

ENTER 

8,31 


Er tschei düngen 

ERROR 

EXECUTE 

EX 1T 

Exponent 

Exponential schreib weise 
Exponenten-By te 


39,40 

10,14,16,142 

84,119 

51 

54 

77 

99 


F 

F* 

F+ 

F- 

F. 

F/ 

"falsch" 

Fakul tat 
FAST 

Fehleranzeigen 

Fehlerprüfungen 

FILL 

FIND 

flag 

Floating point 

Flußd i agramm 

FNEGATE 

FORGET 

Formatierung 

FORTH 

Forth-79 


77 

19,77 

77 

19,77 

77 

41 

44 

131 

33,1 42,143 
131 

113 
83 
41 
77 
39 
77 
33 
96 

114 
155 


G 


Ganzzahl ari thmet ik 28 

Gleitkommazahlen 77,99 

GR 61 

GRAPHICS 11 

Graph ic-Modus 59 

Grenzwert 50 

H 

Halbfettdruck 9 

Halbtonschr i tte 55 

halt 130 

Header 10i 

HERE 121 

HEX 91 

Hex 88 

Hexadezimalzahlen 87 

Hi Ifsregister 130 

HOLD 96 

2 

| 49 

I ' 50 

IF 40 

IMMEDIATE 117 

IN 132 

Index 110 

INKEY 81 

INT 77 
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I 


INTEGER 83 

integer 77 

Interpreter-Modus 117 

Interrupt 130 

INVERSE VIDEO 11,59 

Inverse Video-Modus 59 

INVIS 67 

I/O Adressen 132 

J 

J 50 

J/N 81 

K 

Kassette 12,73 

Kilo Byte 91 

Kommentar 25,33,118 

Komp Mer-Modus 117 

Kompiler-Wörter 119 

Kompilieren 119 

Komp i I ler-Adresse 119 

Kompiliertes Wort 120 

Komp i I ierzei t-WIrkung 118 

Konstantenbereich 112 

L 

Längenfeld 105 

Laufzeit-Wirkung 118 

Lau tstärkeelnstel I ung 74 

LEAVE 51 

Leitwort 1 14,124 

LINE 62 

LIST 30,34 

Li st ing 33,1 1 8 

LITERAL 118 

LOAD 12,13,74 

Logarithmus 57 

LOOP 48 

M 

MARKE 8,10,31 

Maschinencode 129 

Maschinen-stack 130 

Masken 94 

MAX 20 

mehrdimensional e Bereiche 112 
memory-mapped 135 

MERKER 41 

MIC 12 

M IN 20 

mnemotechnische Form 129 

MOD 19 

MOVE 112 


N 


Name 

101 

Namensfel d 

105 

Namensl ängenfeld 

105 

NEGATE 

20 

negativer Step 

49 

negative Zahlen 

89 

NUMBER 

83 

0 


OK 

8,13,14 

Operanden 

23,24 

Operandenfeld 

120 

OR 

92 

OUT 

132 

OVER 

26 

P 


PAD 

84,97 

Pad 

84 

Parameter-Feld 

101 

Peripherie 

132 

PICK 

26 

P Ixel 

67 

PLOT 

67 

PLOT-Status 

70 

P lotting-Modus 

67 

Port 

132 

Port-Adressen 

135 

positive Zahlen 

89 

Poten 2 

37,54 

PRIM 

53 

PRIM? 

53 

PRIMES 

53 

Primzah 1 

53 

Probier-Divisor 

53 

Prüf wort 

42 

Pseudozuf al 1 szah f 

70 

Q 


QUERY 

82 

QU IT 

82 

Quotient 

19 

R 


R 

52 

RAM 

36,123 

RAND 

71 

Raster 

60 

REDEFINE 

31 

Register 

130 

Reihenzähler 

50 

Reihenzähl schleife 

50 

Rekursion 

44 

relative Adresse 

102 

REPEAT 

47 

Rest 

19 

Restart-Befehle 

130 

return adress 

52 

RETURN-stack 

52,123 



159 


159 


R 


RETYPE 

82 

RND 

71 

ROLL 

27 

ROM 

36,123,129 

ROT 

26 

Rücksprung-Adresse 

52 

RUNS> 

120 

S 


5- >D 

100 

SAVE 

74 

Schal tkreise 

134,135 

Schleife 

47,48,50 

Schleifenzähler 

51 

Schutzstel lung 

100 

SH 1 FT 

10 

SIGN 

,97 

SIN 

79 

Sinclair ZX81-Anschl 

üsse 136 

Sinus 

79 

SLICE 

' 108 

S! icing 

108 

SLOW 

131 

Sofortwort 

105,1 17 

SPACE 

10,63 

SPACES 

63 

Speichererwei terung 

124 

Speicherp 1 ätze 

36 

Spitze des stack 

39 

SQ 

24,34 

stack 

17 

stack underflow 

22 

Stammwörter 

131 

Stapel 

17 

Step 

49 

Steuerzei chen 

59 

Strings 

107 

Stringvergleich 

108 

Substrings 

108 

SWAP 

24 

SYMBOL SH IFT 

8 

Systemvariable 

69,88,123,124 

T 


TAB 

65 

TAN 

80 

Tangens 

80 

THEN 

40 

Tondauer 

55 

Tonhöhe 

55 

Toniänge 

55 

top of stack 

39 

TOS 

39 

TYPE 

62,84 


U 

U* 96 

U. 89 

U/MOD 96 

U< 90 

UFLOAT 76 

Umwandlungsadresse 83 

Underflow 124 

Unterlauf 124 

UNTIL 47 

V 

VARIABLE 35 

"Vater"-Wörterbuch 114 

Verbindungsadresse 115 

VER1FY 73,74 

Verkettung 101 

Verkettungsfel d 105 

Video RAM 123 

VIS 67 

VL IST 9,14,115 

VOCABULARY 114 

Vorsatz 101 

W 

"wahr" 41 

WH ILE 47 

WORD 63 

Wortbegrenzung 84 

Wörterbuch-Def ini tion 114 

Wörterbuch-Verkettung 116 

X 

X-Koordinate 67 

XOR 92 

Y 

Y-Koordinate 67 

Z 

Z80-Maschi nencode 129 

Zahlenbasis 88 

Zahlensysteme 87 

Zehnersystem 87 

Zeichenketten 107 

Zeichensatz 59,137 

Zufal lsgenerator 70 

Zweidimensionale Bereiche 110 
Zweierkomp lement 95 


Zweierkomplement-Methode 89 
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